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With BUSINESSPAK+ the Model 100 СКАРН+: Prints out Bar, Line and 


is virtually a complete tool for the 
manager or executive. Picture how 
this added capability will help you. 
WRITE+: Instead of merely a text 
preparation device the Model 100 
becomes a real word processor. 
Margins . . . side, top and bottom. 
Title page, topic headings, page 
numbers, and even headers and 
footers. You can even right justify 
and print multiple copies. It has 
over 36 features and countless 
format possibilities. 

EXPNS+: By simply entering 
expenses into eighteen categories, 
you geta ae day spreadsheet, 
giving totals for each day, and 
category. Names of rows and 
columns are instantly changeable, 
and the sheet becomes a budget 

or even a financial report. Replica- 
tion across the columns, cumlative 
totals, and automatic growth or 
decline rate projection, make 


EXPNS* an excellent planning tool. 


And, all the math is built right in. 


CERTIFICATION 
SEAL 


TRS-80 is a trademark of 
Tandy Radio Shack, Inc. 
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For the Radio Shack TRS-80 Model 100 
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SIMIC юпочедо 


Pie graphs of any EXPNS+ report 
on the DMP-100 dot matrix printer. 
Shows the percents on the pie chart 
and values on the others. 


TELEX+: From any phone send any 
text file to any Telex machine in the 
world. Just enter the receiving 
Telex number. Send Mailgrams for 
next day delivery to any address 

at reduced rates through the 

Action Telex system. 


PUT+: Lets you list any informa- 
tion in an organized fashion. It 
prompts for each entry and very 
rapidly creates addresses or schedule 
items and even inventory. 













SORT+: Allows you to sort any 
list you compile with PUT+ alphabet- 
ically or numerically from any 
category in the entry. It can sort 
large files up to 20 times faster than 
an all Basic program. 


MASTERCARD/VISA/COD 


PCSG provides hotline software 
support for the Model 100. Give us 
a call at 1-214-351-0564. 
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11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 






From Computer Plus to YOU... 
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Model 100 8K $679 Color Computer ІІ 46K $185 Model IV 16K $849 


w/46K Ext. Basic $245 Model IV 64K 
ный алы у//64К Ext. Basic $305 2 Disk & RS232 51699 






CITOH Prowriter $375 
CITOH Prowriter ІІ $649 CoCo Drive 0 $329 DWP210 $629 


CoCo Drive 1 $235 


BUY DIRECT cot FRéETortuflinfermation: ``` 
























COMPUTERS R.S. Modem II 160 DISK DRIVES 
Model 12 64K 1 Drive $2699 R.S. DC-1200 565 R.S. Model IV Drive 0 545 
Model 12 64K 2 Drive 3375 PRINTERS Color Computer Drive 0 329 
Model IV 16K 849 Smith Corona TPI D.W. 469 Color Computer Drive 1 235 
Model IV 64K Silver Reed EXP500 D.W. 430 Primary Hard Disk M12 2689 
2 Disk & RS232 1699 Silver Reed EXP550 D.W. 665 Primary Hard Disk MIII 1799 
Color Computer Il 46K 185 Daisy Wheel II 1745 ETC. 
м//46К ext. basic 245 DWP240 629 CCR-81 recorder 52 
м//6АК ext. basic 305 DWP410 4159 C.C. Joysticks (pair) 22 
Pocket Computer 2 165 CGP115 159 46K Ram Chips 25 
Model 16B 1Dr 256K 4249 DMP100 315 64K Ram Chips 75 
Model 168 2Dr 256K 4915 DMP420 395 8K Par/Par Microfaser 135 
Model 100 8K 679 DMP200 520 Parallel printer cables are 
Model 100 24K 835 DMP400 1040 available for most computers. 
MODEMS DMP500 1219 SOFTWARE 
Lynx MI/MIII 235 DMP2100 1745 CoCo FHL Flex D.O.S. 69.95 
Hayes Smartmodem Il 235 Gemini 10X 315 R.S. Software 10% off list. 
Hayes Smartmodem 1200 565 Gemini 15 425 Send for listing of 
Novation Smartcat 1200 459 CITOH Prowriter 375 brand name software. 
Novation J-Cat 125 CITOH Prowriter II 649 
R.S. AC-3 129 Okidata CALL 
R.S. Modem 1 89 Epson CALL 
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‘Fiddling’ With Publications 


A Tradition 








As you no doubt know, PCM — The 
Portable Computing Magazine isn’t the 
only magazine we publish. In fact, now 
there are three. 

The third one is called ScoreCARD, a 
fan magazine for University of Louis- 
ville athletics. And, while PCM and its 
sister computer publication, the Rain- 
bow caused little interest in the Louis- 
ville, Kentucky, area where we hang 
out, ScoreCARD caused something of a 
stir, since it is, essentially, a local maga- 
zine devoted to local people. 

Well, we got some amount of local 
publicity, of course, and the writers 
(especially the sports writers) were sur- 
prised to discover that we published two 
other magazines. 

"How do you go about starting a 
magazine?” was the most frequently 
asked question we got. 

In some ways, this reminded me of 
the response Tevya, the hero of Fiddler 
On The Roof answered his self-asked 
question when he wondered why the 
fiddler stayed on the roof if it was so 
dangerous. “I don’t know,” said Tevya. 
“But it’s a tradition.” 

In the last six months, we've started 
two magazines, so maybe that's a tradi- 
tion, too. And all of this leads me to be 
able to proudly point out to you that, 
yes, PCM gets a little bigger this month 
and is expected to be getting even bigger 
in the future. 

There are two reasons this is happen- 
ing. The first, obviously, is there are 
more advertisements this month — which 
means it is easier to pay for those extra 
pages. But the second reason is the more 
important one — both to us and to you. 

We're starting to get more and more 
submissions to our editorial columns, 
more people wanting to do product 
reviews, more letters and notes with 
offers of help and suggestions. And, yes, 
more subscripiions, too. 

All of that means that we're able to 
bring you more information in PCM 


and on your Portable Computer than 
we have been able to do before. To 
understand that fully, you need to know 
something about our basic philosophy 
of magazine publishing. 

I do not believe that the majority of 
you are really interested in the technical 
aspects of your Portable Computer. 
Most of you bought it to do a job — be 
that job word processing, keeping files, 
making an analysis of data or some lea- 
sure activities. Usually, that is a combi- 
nation of both. I think you want us to 
show you how to do those things — not 
how to open up your computer (which, 
by the way, voids your warranty) and 
solder this chip to that. I doubt many of 
you want to disassemble the ROM rou- 
tines and the like. 

Which brings me to the point (besides 
the welcome news that we're growing) 
of all this: We solicit user articles, pro- 
grams and reviews. If you have nothing 
to review, let us know — we'll add you 
to the list of people who want to review 
for us. And, of course we'll pay for your 
work. 

I believe that virtually every program 
written for a computer has been deve- 
loped to serve a specific need. Most of 
us are beginners. In fact, the very popu- 
lar Bob Albrecht, one of the most 
widely-read and successful writers in the 
microcomputer field today, character- 
izes himself as the "ultimate beginner." 
The reason, as Bob explains it, is because 
he's always learning something new and 
when he writes about something, he 
wants it to be clear and understandable 
to others who are trying to grasp some- 
thing that is new to them. 

The point of all this is that it seems to 
me that, sometimes, potential contribu- 
tors are "dazzled" by the programs they 
see in magazines and feel that they could 
never come up with anything so good, 
so they just never send in a program 
they've written. Often, I’ve found that 
some of the best programs are those 


which have to be "coaxed" out of a 
writer. 

One of our contributing editors in the 
Rainbow is an excellent case in point. 
He wrote me a letter very early on in the 
magazine's history, saying he had a pro- 
gram but didn't know if it was worth 
sending. He asked me whether I'd be 
interested. 

When I wrote back saying I would, һе 
wrote back again, saying that he'd 
thought about it and that, on reading 
the Rainbow, he decided it was nowhere 
near up to the standards of the pro- 
grams we were printing. He thanked me 
for my time. 

I called him and convinced him that 
he ought to send it in anyway. It was a 
good program. We ran it and, later, ran 
a couple more. Now, he contributes to 
the Rainbow on a regular basis and his 
programs are some of the best we print. 

I'm trying to emphasize that we would 
welcome your contributions very much. 
In writing any program you've done, 
you have obviously addressed a need 
you have — whether that be for business 
use, for entertainment or just to learn 
something. You can share that with 
thousands of other people who also 
have a Portable Computer — and get 
paid for it, too. 

I hope that you will consider sending 
us your programs and information you've 
learned about the Portable Computer. 
You'd help your fellow PoCo owners, 
help yourself and help us as well. And, 
who knows, a year from now you might 
be one of the “names” in the microcom- 
puter world! 


From the start, PCM has been an 
“International” publication, because we 
havea great many subscribers and retail 
outlets in Canada. Now, though, you 
can also get a special Australian version 
of the magazine "Down Under." Our 
agent in Australia reports that sales of 

(continued on page 38) 
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Basic Bytes 








see two types of Model 100 owners. There are quite a few who are 
I computer conversant and who realized the strengths of the 


machine immediately. Many of these folks had their money down 
within the first few weeks. Some had been thriving on old Model I’s 
TART and had not seen the value of upgrading. That is, until Model 100. 
Others had a number of machines, but could not resist the next major 
advance. Many of these owners need a column on BASIC like they 
need three left shoes. This column is addressed to those having little 
programming experience, but who want to start using the BASIC in 
their machines. We will talk about things that are in the manuals and 
occasionally dig into things that are not. And we will digress into 
some non-code issues like programming practices and program 
structure. 

A new column on BASIC Of course, you could start to learn BASIC by using the manual that 
comes with your machine. At least, you will need to know where 
for the MIOO by everything is located in the manual. But, the Model 100 Manual is not 
RICHARD WHITE, a good text to start from scratch with. Its BASIC section is really not 
PCM  Contributin g much more than an annotated listing of the available commands and 
Edit other data. It looks likea good reference, but hardly a beginner's text. 
BEBE Far better would be the Color Computer manuals which take a step at 
a time approach. These can be purchased at your local Radio Shack 
store. Alternately, you might choose from other BASIC texts at Radio 
Shack, B. Dalton’s or other book sellers. Don’t worry about whether 
your Model 100 language is somewhat different. There are refine- 
ments and additions and the screen locations differ, but the basic 
commands, functions and operators you need to learn at the begin- 
ning are the same. And you always have your M100 manual to check 

to see if things are the same. 

There are some things you should know early. One is how to save 
programs to tape and load them back into your machine. Even if you 
have 32K, you will quickly fill memory without magnetic storage. If 
you have access to another computer, you could dump to that 
machine and save to disk. I suspect tape will prove less hassle in many 
instances. Of course, when traveling, a recorder can be carried in the 
suitcase and files dumped in the evening making room for the next 
day's business and notes. If you don't have access to another compu- 
ter, you have no choice but to use a tape recorder. 

A word about tape reliability. The Color Computer was the first 
computer to have a really viable tape interface. I used tape for two 
years before getting my disk and did not feel deprived. The M100 has 
a very similar interface so it will perform equally well. Perhaps the 
keys to satisfactory cassette operations are to use short (C-10 or C-20) 
tapes, always save twice, and use a recorder with a tape counter so 
you can write on the cassette itself the start and end location for saves 
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of each program. І һауе an adage: fools 
save only once while cowards save three 
times. If you cannot find C-10 cassettes, 
check the ads in this issue and order by 
mail. I cannot argue too strongly about 
writing the contents and counter loca- 
tion on the cassette label. If you do this 
regularly, you will find you can put two 
to four programs per side and access 
any one without particular stress. As 
you do programming, it is handy to 
have a SAVEing utility built into your 
program. Yes, | know about function 
key 3 and find the following method and 
code much better. I generally use Line 
10000 (easy to remember). 


10000 INPUT"WANT TO RUN PAST 
LEADER™IS : IP 1$-"Y" THEN 
MOTORON : FOR X=ITO 5000 : 
NEXT 


10010 FOR S-1 TO 2 : CSAVE 
"YOURPROG": MOTORON : FOR 
X-1 TO 500 : NEXT : NEXT : 
MOTOROFF 


Other than being handy, we can dis- 
sect this program bit and see a lot about 
the basics of BASIC. First you use this by 
typing RUN 10000 or GOTO 10000. Ah 
so, we do not always have to start at the 
beginning of a program. Indeed, you 
could have a number of programs in а 
file, and RUN the one you want by its 
starting line number. Of course, in most 
cases it will be handier to have programs 
as separate files in memory and run 
them from the main menu. Not in this 
case, since you want to save the current 
file in a specific way to tape. You also 
cannot use the F4 key since that always 
RUNS a program starting at the lowest 
line number. 

There is a lot that can be learned 
about programming concepts and 


TYPIT (Output from TEXT) 
a. Setmargins - top, bottom, left, right. 

b. Setline spaces - single, double, etc. 

c. Pagenumbering - start on any page number - include "footer." 
d. Right justify. 
e 

т 

а 


LIMITATION: Runs slow. 
ERM2 


. Solves problem of cursor ending up on right side of screen 


with certain host comupters. 


b. Upload (waits for host signal before sending each line). 
с. Download (sends signal to host when ready for next line). 
d. LIMITATION: For use with 300 baud. 


ELF (Eliminate Line Feed) 


BASIC in those few lines of code. So, | 
will embark on a long winded discus- 
sion and hope you pick up some ideas 
along the way. Most tapes have leaders, 
and many times you will need to posi- 
tion the tape past the start of the leader. 
Why not have the computer remind you 
and then run the tape past the leader if 
that’s what is needed? We start with 
INPUT“WANT ТО RUN PAST LEAD- 
ER Ү/М”18. The computer will print 
the text between the quotes and then 
wait for you to enter a "Y" or "N" and 
press ENTER. INPUT is neat in that 
the programmer can put onthe screena 
message about what response is needed 


“Reading а spaghetti 
program is rather like 
reading an upside down 
roadmap...” 


and get that response in one command. 


Here, INPUT is looking for a character 
or String entry, but it can be used to get 
numeric data as well if a numeric varia- 
ble is used. For example INPUT“EN- 
TER А NUMBER”:X. 

So something was keyed and the 
enter key pressed. Now the computer 
must make a decision. There are a 
number of ways to make a decision in 
BASIC. IF... THEN... ELSE is proba- 
bly the most used. Since we can string a 
number of commands in one line of 
BASIC, separating them by colons, we 
will put our test in line 10000. IF I$—"Y" 
THEN MOTORON : FOR X =1 TO 
5000: NEXT. IF makesa true false test. 
If I$—"Y"istrue the code after THEN is 


executed. If I$ equals anything else, the 
test proves false and control goes to the 
next BASIC line. If you do want to run 
past the leader, MOTORON turns on 
the tape recorder. You did have the play 
and record buttons down? To run past 
the leader, the cassette must run 121015 
seconds. We need a timer. But, it takes 
time to run a program. lf we tell the 
program to run around in circles (loop if 
you want to be technical) so many 
times, it will usea predictable amount of 
time. That is what FOR ... TO... 
NEXT does in this case. The M100 
starts at Х=1 and goes to NEXT. NEXT 
checks if X=5000 or is greater than 
5000. If not, itadds one to X and sends it 
back to the FOR statement. This is the 
simplest possible FOR... TO... 
NEXT, just to give you beginners the 
idea. 

Both IF... THEN and FOR... 
TO.... NEXT control what the compu- 
ter does so they are called control struc- 
tures. There are thousands of ways they 
can be used and a beginning pro- 
grammer could do worse than spend the 
time to learn their ins and outs. And 
that done, you will learn even more as 
you use them. 

In line 10010 we are at the meat of the 
matter. This saves the program to cas- 
sette twice and puts some blank space 
between saves. FOR S-1 TO 2: CSA- 
VE"YOURPROG" makes the first save 
and there isa FOR ,.. TO again. BASIC 
always goes through a FOR ... TO at 
least once so you would have gotten one 
save even if there were -100 in place of 2. 
Moving on, MOTORON : FOR Х-і 
TO 600 : NEXT : NEXT : MOTOR- 
OFF. I said we wanted to leave a space 
between CSAVEs so MOTORON turns 
the cassette motor on and FOR X =1 
TO 600 : NEXT does a time delay. 
There are two nexts in a row, but M100 
knows which FOR ... TO it's dealing 


TRS-80 MODEL 100 OWNERS 


Three Software Packages From QAD 


Send me the following program: 


TYPIT - $24.95 [ ] 


Name 
Address 
City 


Charge 
Account No. 


Signature 


When a word processing file is downloaded to the 100, "hard" line- 


feeds are sent by the host. ELF eliminates such line feeds so that 
the file can be used for word processing. 


SPECIAL!!! All of the above 


Mail to: 





е Newton, KS 67114 


TERM - $19.95 C] 
$39.95 [Г] 


ELF - $14.95 (1 
All 3 Programs - 


rr БН 


O Payment Enclosed 4754 
O Visa 4 


[] MasterCard 
Interbank No. (MC only) 


GROWTH ASSOCIATES For more information 
Jane Hershberger or to order by phone 
1901 East First Street call: 

(316) 283-2400 
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with and won't get mixed up. At this 
point S= I so the second NEXT sets S = 
2 and sends the program back to the 
first FOR ... TO to CSAVE the pro- 
gram again. A space is left at the end of 
the second save and MOTOROFF turns 
the recorder off. 

In this bit of program or code as we 
like to call it, to increase the fog index, 
we prompted the user for an input, got 
it, tested it and caused the computer to 
do four or five separate functions depend- 
ing on that test. We met two BASIC con- 
trol structures in simple form and used 
one three times. Not bad for two lines of 
code. It even makes sense when divided 
into little pieces. Perhaps the secret to 
programming is to “divide and con- 
quer.” 

Perhaps? Nay, it’s a certainty. If you 
think of your programs as functional 
little pieces, you will do a lot better. 
Pascal, another programming language, 
was written for use in teaching pro- 
grammers to structure their programs. 
In fact, you cannot write in Pascal with- 
out adhering to strict structural rules. In 
BASIC you have a choice of writing free 
spirited spaghetti-like programs or rela- 
tively structured ones. Reading a spa- 
ghetti program is rather like reading an 
upside down roadmap under a new 
moon at midnight. New programmers 
seldom know where they are going with 
a program and halfway through may get 
bogged down figuring where they have 
been as well. Such is part of the learning 
process, so don’t lose heart. 

Program structure means program 
organization. Some languages require 
that variables, files, data structures and 
other attributes be declared at the begin- 
ning. Generous use of remarks is en- 
couraged and specific indentation for- 
mats are strongly suggested. Struc- 
turing also deals with what should be in 
subroutines, what should be in the main 
procedure and how the procedures flow. 
Much of this is optional in BASIC, some 
is just good practice in any language. 

Clarity should be as important a goal 
in BASIC as it is in other languages. 
There are a number of ways to write 
clear programs. | use the procedures 
that follow and find them valuable. 


1) Define specific program functions 
and put the code for each function in its 
own module with introductory REMs. 
Assign a specific set of lines toa module. 
Blocks of 100 lines are convenient and 
will meet most needs. You will always 
know a module begins at an even hun- 
dred and can go right to the one you 
want. 
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2) Minimize looping back. The proce- 
dure should flow from start to end and 
loop only to repeat the routine or a por- 
tion of it. 





"Perhaps the secret to 
programming is to 'divide 
and conquer.’ " 


3) Use IE «+: THEN 4... ELSE to 


minimize jumping forward. Many times 
all the code for the choices can be con- 
tained after THEN and ELSE on one 
line so that the procedure can continue 
on the next line. Some BASICs don't 
have ELSE. Apple doesn't and Apple 
owners pay extra for the lack. To illus- 
trate, which is clearer to you? 

10 IF X=0 THEN PRINT “FALSE”: 
Х=1 ELSE PRINT"TRUE" 

20 END 

or 

10 IF X=0 THEN 30 

20 PRINT “TRUE”: Х=1: GOTO40 
30 PRINT“FALSE” 

40 END 


4) Put all subroutines in one of two 
places. Frequently called subroutines which 
include those that affect program speed 
should be at the front of the program. | 
reserve lines 5 to 99 for these. These 
should not be more than three or four 
lines. Line number spacing of two is 
good. Putting these here serves two 
functions. First the computer finds them 
quickly when speed counts. You also 
save bytes since the number in the 
GOSUB is only one or two bytes long. 
Infrequently called routines, particularly 
program initialization code should be at 
the end of the program. Each time a 
subroutine is called or the computer is 
sent to a specific line, it starts at the 
beginning of the program and searches 
until it finds that line. The fewer lines it 
passes to find the needed line the faster 
the search will be. It follows that speed 
is compromised if the computer is con- 
tinually searching over code it has used 
and will not use again. Clarity comes 
from having only two places to look for 
subroutines. The one exception that | 
make is to place a major subroutine at 
the end of the module that calls it when 
only that module uses it. 


5) The same reasoning used above also 
applies to the ordering of main program 


modules provided they are called separ- 
ately. Those used most frequently are 
put in front of the occasionally used 
ones. Ina file program, the input module 
is used far more than the save to tape 
module and should come to the front. 
Modules that are used in order should 
be placed in order in the program. 


6) Menus should be placed where they 
are used in the program. A menu's text 
provides valuable information on the 
branching of the program that follows. 
If menu choices are numbered from one 
up in sequence, the ON I GOTO XXX, 
ҮҮҮ 222 or ON I GOSUB XXX, 
YYY.ZZZ commands сап be used. It is 
easy to read a listing, see which number 
corresponds to the code block you want 
and then drop down to the ON I state- 
ment and count across to find the target 
line number. Memory conservation 
sometimes forces use of strings defined 
elsewhere in the program in menu text. 
When this is done the advantage of 
reading the menu code to know what 
options are there and where to go for 
their code is lost. Programming is a ser- 
ies of compromises. It is up to you to 


"| have an adage: fools 
save only once while 
cowards save three 
times." 


know what your options are and to 
make sure that your choices are edu- 
cated ones and not guesses or blind 
repetition of past practices. 

Though І have discussed program 
structuring for purposes of easy trouble 
shooting and modification, the struc- 
ture proposed had program speed firm- 
ly in mind as well. Memory use was 
another consideration. Clarity, memory 
and speed are like three corners of a 
triangle. You cannot be at all three 
points at once. You can make choices 
that shorten the sides of the triangle and 
get close to where you want to be. It 
takes careful thought and planning at 
the start so you don't end up redoing too 
much. Don't be upset when you don't 
get what you want the first or second 
time. Remember, all good commercial 
programs have version numbers and 
Version 1.0 is the first one offered for 
sale, not the first one of the develop- 


ment process. PCM] 








Here is a super market program to take with you 


when уои go... 


Traveling To 


The Aisles 


By Robert Frowenfeld 
PCM Contributing Editor 








e're going to leave the world 
of business ratios and eco- 
nomic analyses to concentrate 


on something a little bit closer to home. 
As a matter of fact, as close to home as 
your grocery store. This month, we're 
going On The Road with the Model 100 
to assist us in doing our food shopping. 
Just unplug your PoCo, stroll on down 
to the local supermarket, place your 
TRS totable in the top of yourshopping 
cart, and get ready to simplify your 
shopping. A word of caution here be- 
fore we get started. There may not be 
enough room in your shopping cart for 
both your Model 100 and junior, so if 
you really want to make good use of 
your computer, you may have to leave 
the apple of your eye alone to walk 
down the aisles and disrupt an other- 
wise orderly store. 

Using the first four letters of the word 
grocery, l've decided to name this pro- 
gram GROC.BA; of course you can 
save it under any name you want on 
your Model 100 as long as you use the 
.BA extension. GROC was designed to 
perform two basic functions. The first is 
to keep track of all your purchases and 
to record them in such a manner so that 
you сап easily review your expenditures 
when you get home. By classifying your 
purchases into specific categories as 
well as letting you type in a description 
for each item, the program can make a 
simple job of reconciling your cash reg- 
ister tape. Furthermore, as you'll see 
later, it can also let you know how much 
of your food dollar is being spent on 
various categories of items. The second 
function of GROC is to help you com- 


parison shop for the best prices. There's 
a built-in unit cost price calculator 
which will help you decide which items 
are the better buys. 

So, let's get started. The main menu 
(see Figure #1) lists all the functions 
available. The first option is the Com- 
pute Unit Price function. By pressing 1, 
you will be prompted by the Model 100 
to enter a price formula. Here, you have 
two choices. You can type in an equa- 
tion to give you the unit cost of an item, 
or you can enter a formula to have the 
Model 100 give you your total price for 
an item sold in quantity. Asan example 
of the unit price function, let’s say you 
are confronted with two sizes and prices 
of peanut butter, and you don’t know 
which is the better value. The smaller 
size is $1.49 for 18 ounces, and the larger 
is $2.19 for 25 ounces. For the first size, 
type in the equation: /8//.49 and press 
ENTER; the program will respond with 
your unit cost of $0.083; this represents 
the cost per ounce of the smaller size. 
For the larger size, enter 25/2.19 and 
GROC will respond with $0.088, indi- 
cating that the smaller size is really the 
better buy. 

The second function of the unit price 
calculator is to determine the cost of 
items that aren’t priced by the piece. As 
an example, oranges are selling for 
$1.79 per dozen, but you only want to 
buy five of them. Simply enter 5@ 
12/1.79, and your trusty shopping com- 
panion will respond with your cost of 
0.75 to indicate your cost of 75 cents. 
This will be helpful when you need to 
enter the price paid for your purchases 
in the following section. 


Enter Purchase (Figure 2) allows you 
to record your purchases on your Model 
100 so that you can later review them to 
help reconcile your cash register receipt. 
When entering an item that is being 
purchased, you must assign a category 
number when prompted with the mes- 
sage Select Item. Seven different cate- 
gories have been allocated to GROC. 
They are: Bakery, Dairy, Deli, Grocer- 
ies, Meat, Produce, and Taxable Item. 
The titles for these headings can be 
found on line 60 in the program. If you 
desire, they can be changed, but don’t 
change the last one — Taxable Item 
since the program adds in sales tax at 
the end based on the total of items 
selected for this group. 

Once you've selected a category, you 
are prompted to enter the price. If you 
have to go back and compute the price 
using the unit price compute function, 
just press ENTER; the program will 
take you back to the Select Пет 
prompt. From here you press 8 to return 
to the main menu and compute your 
actual cost. Once you've entered the 
price you'll be asked to furnish GROC 
with a description of your purchase. 
Since we're storing text here, І recom- 
mend that you keep your descriptions 
brief so as not to use up too much 
memory and/or string space. 

Now that you have your purchases 
entered, you can do one of several 
things. First, I suggest that you save a 
record of what you've bought by select- 
ing option #4, Save Purchase File. This 
will record all your purchases ina RAM 
file named PURCH.DO. In fact, it is 
recommended that you periodically save 
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your data to this file, just in case you 
have to shut off your Model 100 for a 
while to explain to the store manager 
why your little boy (angel that he is) 
won't stop playing with the lobsters in 
the tank. Once you get home and you 
want to review and/or list your pur- 
chases, you сап load this file into GROC 
by using option #5, Load Purchase File. 
Note: the only time you have to load the 
purchase file is when you have had the 
machine turned off or, for some reason, 
you stop or exit the program and want 
to resume using it where you left off. If 


tinue, you don't have to reload it. 

This brings us to the last function of 
G ROC, option #3: Purchase Summary. 
This allows you to list and/or print a 
summary of all your purchases. The list- 
ing itemizes each purchase by indicating 
the price paid and description of each 
item. At the end of the listing is a sub- 
total, a total for the taxable items, the 
amount of sales tax paid, and a grand 
total. The program has been configured 
for a sales tax rate on taxable items of 5 
percent. If your sales tax rate is differ- 
ent, you will have to change line 30. For 


line 30 will read 30 TR + .08125 since 
your tax rate is В percent. 

At the end of the list is a recap of the 
dollar amount and percentage of your 
grocery bill paid for each of the seven 
purchase categories. 

One additional note, this program 
was originally set up to handle 100 
items. If you feel you'll need more 
capacity — no problem. Just change the 
arrays dimensioned in line 40 to accom- 
modate a larger number of items; you 
might also want to change the cleared 
string space in line 10. Well, until next 


you just want to save the data and con- example, if you live in New York City, time — Bon Appetit! 
Figurel poy Shopping Companion Figure 2 
Select: Enter Purchase 
1 Compute Unit Price 1 Bakery 5 Meat 
2 Enter Purchase 2 Dairy 6 Produce 
3 Purchase Summary 3 Deli — 7 Taxable Item 
4 Save Purchase File 4 Groceries 8 Exit 
5 Load Purchase File 
6 End Program Select Item: 
Figure 3 
Item # Price Description 
1 1.25 DONUTS 
2 1.49 MILK - 1/2 GAL The listing: 
3 0.79 ALUMINUM FOIL i вото 10 
4 oye ORANGES (8) 6 LINEINPUT INS:IF INS<>""THEN Y=ASC(INS 
5 0.99 CREAM CHEESE ) 
6 0.09 CANNED PEACHES 7 XSVAL (ТМ) : КЕТОКМ 
7 4.59 T-BONE STEAK 10 CLEAR 2000:DEFINT I-N:DEFSNG C-H,0-8, 
8 0.79 BREAD S-T,V-Y:DEFSTR A-B,R,U,Z 
Subtotal: $ 12.09 20 R=CHR$(27)+"p":U=CHR$ (27) + "а" 
Taxable Total: $ 0.79 25 Fi$="$###. 44" 
Sales Tax 8 0.0507 $ 0.04 30 ТК-.05 
Grand Total: $ 12.13 40 IX=O:DIM ТҮ(100) „РК! (100) ,DE$( 108) 
50 DATA "Compute Unit Price","Enter Purc 
CATEGORY TOTAL PERCENT hase","Purchase Summary","Save Purchase 
Bakery $ 2.04 16.82 File","Load Purchase File","End Program" 
Dairy $ 2.48 20.45 :FOR 151 TO &:READ MOS(ID:NEXT I 
Deli $ 0.00 0.00 80 DATA"Bakery","Dairy","Deli","Grocerie 
Groceries $ 0.29 5.69 s","Meat","Produce","Taxable Item","Exit 
Meat $ 4,59 37.84 "SFOR 151 TO 8:READ М1%(1І):МЕХТ I 
Produce $ 1.50 12,57 99 GOTO 1000 
Taxable Item % 0.85 5.84 100 ‘unit price 


8K MEMORY MODULES FOR THE 
TRS-80 MODEL 100 PORTABLE COMPUTER 


$85 each, 2 or more $80 each 
Exact Replacements for RS Memory 
Easy To Install е Warranty Included 
VISA and MC Accepted * CA Residents Add 6.5% Sales Tax 


IOTA SYSTEMS е 1690 Day Valley Road е Aptos, CA 95003 е (408) 684-0482 
Prices Subject To Change Without Notice е TRS-80 is a trademark of Tandy Corporation 
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110 GOSUB 600 

120 PRINT@8Q,"Enter price formula: "3:60 
SUB 6:IF IN$-""THEN 1000 

130 J=INSTR(IN$,"/"):IF X=@ ОК J=@ OR J= 
(ЕМ(ІМ%) THEN GOSUB 550:60T0 100 

140 K=INSTR(IN$S,"@"): ТЕ KzLEN(INS) THEN 
G0SUB 650:60T0 100 

130 IF К<>0 THEN QU=VAL(MID$(IN$,K+1)) 
160 YVAL(MIDSCINS,J*1)) : IF Y<=@ THEN GO 
SUB 650:60T0 100 
170 IF K=@ THEN C=Y/XsPRINT@160,"Unit Co 
st = "SUSING"$##. ###"; C: GOTO 190 

180 IF K<>@ THEN CzX*Y/QU: IF C*100« 2 INT( 
C*100) THEN C2INT(C*100*1)/100 

182 C=C 

185 PRINT@1460,"Total Price ="USING"##. 44 
ғар 

, 

190 GOSUB 610:60T0 100 
200 ‘enter purchase 
210 GOSUB 1100 
220 PRINT@280,STRING#(38," ");::PRINT8245 
"Select Item: "ss INS=INPUTS$(1):X=VALCIN 
$):IF Х<1 OR X58 THEN 220 ELSE JzX:PRINT 
Ji 
230 IF J=8 THEN 1000 
240 P-6*J*40:IF J>4 THEN Р-Р-140 
245 PRINT8P,R;M1$(J)U; 
250 PRINTe265,"Price: "1:608UB 6: ІРІМ=" 
" THEN PRINTéP,M1$(J)::GOTO 220 
260 PR=X:IX=IX+isPR! (ТХ) PR! : ТУ (ТХ) =] 
270 PRINT8280,STRING$(38," ")::PRINT6280 
+ Description: "; : 6050В 6: IFIN$z"" THEN 
270 ELSE DES(IX)=IN$ 
280 GOTO 200 
300 purchase summary 
305 GOSUB 600 
510 Р=0: РКІМТЕ1 20, 5ТКІМ6$(59," ")::PRINT 
6127, "бепд output to Printer (Y/N): ";:6 
OSUB 6:IF IN$="" THEN 1000 ELSE IF IN$=" 
Y" GR IN#="y" THEN P=-1 ELSE IF IN$<>"N" 
AND IN#<>"n" THEN 310 
315 CLS:TTz0:FOR Ізі TO 7:T(I)zQ:NEXT I 
320 PRINT"Item # Price Descripti 
on":IF (P) THEN LPRINT"Item # Price 

Description 

325 FOR Ізі TO 10Q:IF PR(I)=@ THEN 345 


330 PRINTUSING" #44 ##. #8 "ig 
PR!(I);sPRINT DESC 

335 IF (P) THEN LPRINTUSING" 444 - 
TT "s IS PR! CI); РАТМТОЕЗ (Г) 


340 T(OTYCI)) -Т(ТУ(Т)) «РК! CT) TT2TT*PR' (I 

) 

345 NEXT I 

380 PRINT:IF (P) THEN LPRINT 

355 PRINT"Subtotal: "3USINGF1$; 

TT:IF (P) THEN LPRINT"Subtotal: 
"$USINGF1$; TT 

360 PRINT"Taxable Total: "SUSING"$## 

#.##";Т(7):1Е (P) THEN LPRINT"Taxable То 

tal: "USING" ЯЯЯ, ##";T(7) 


365 TX=TR#T(7):PRINT"Sales Tax @ "USING" 
#. 88H" STRESPRINT"Z? $";USING" 88, #8"; ТХ 
366 IF (P) THEN LPRINT"Sales Tax @ "USIN 
B"3, 488"; TR; :LPRINT"Z 5"; ІСІМЕ" 88, 484" ;T 
X 

370 TTSTT*TX:T(7)2T(7) *TX:PRINT"Grand То 
tal: "USINGF1$; TT:IF (P) THEN LPRI 
NT"Grand Total: "USINGF1$; TT 

372 PRINT:IF (P) THEN LPRINT 

375 PRINT" Press any key for summary by 
category": : A2 INPUT$(1) s PRINT 


378 РК! МТ" САТЕБОКУ"ТАВ (20) "TOTAL РЕ 
RCENT” 

379 IF (P) THEN LPRINT"CATEGORY"TAB(2Q) " 
TOTAL PERCENT" 


380 FOR 151 TO 7 

385 PRINT M1$(I)TAB(19)USINGF1$; T(I) РК 
INT" "USING" ###. SS"; TCI) /TT*10Q: IF ( 
P) THEN LPRINTMI$(I)TAB(19)USINGF1$;T(I) 
12 Г РКТИТ" "USING" ###. FS"; TCI) / 77 + 100 
390 NEXT I 

395 PRINT: GOSUB 618:GOTO 1000 

480 ‘save 

410 GOSUB 620: ОРЕМ 105 FOR OUTPUT AS 1 
415 PRINT8173,"Saving Data ..."; 

420 FOR Ізі TO 100:PRINT#1,TY(I)sPR! (1); 
CHR$(34)DES$(I) 5CHR$(34) " "3: МЕХТ I:CLOSE 
:GOTO 1000 

450 'restore 

460 GOSUB 520:0PEN ID$ FOR INPUT AS 1 
465 PRINT@173,"Loading Data ,.,";: 1ХЕЙ 
470 FOR 151 TO 100: INPUTS1,TY(CID,PR'(ID, 
ВЕ% (1) 

475 IF TY(I)4?0 THEN IX=I1X+1 

480 NEXT I:CLOSE:GOTO 1000 

500 ‘end 

510 CLS: MENU 

600 CLS:PRINT8O,STRING$(20-LEN(MO$(FX))/ 
2," ")1MO$ (FX) 5 t RETURN 

610 PRINT@285,"Press any key to continue 
"SEASINPUTSCI) PRINT8285,8TRINGS(GQ," ") 
; t RETURN 

620 GOSUB 600:1D$-"PURCH.DO" 

625 RETURN 

850 PRINT@255,R" ERROR "О; : FOR 151 TO 19 
00:МЕХТ I:RETURN 

1000 ‘main menu 

1010 CLS:PRINT@1@,"PCM Shopping Companio 
n" 

1020 FOR Ізі TO 6:PRINT@4Q*(1I+1),TAB(S), 
RIU" "MOS(ID;::NEXT I 

1050 РКТМТЕ55, "бе! ес: "s:INS=INPUT$(1): 
XsVAL(INS):IF X41 ОК X>6 THEN 1050 ELSE 
ЕХЕХ: ОМ X GOTO 100,200,500,400,450,500 
1100 ‘purchase menu 

1110 CLS:GOSUB 6@0:FOR Ісі TO 4:PRINT@I* 
40*2,R:I;U" "MISCID:NEXT I 

1120 FOR 155 TO 8:PRINT@4@*(1-4)+22,R31; 
и" "М1$(1);:МЕХТ I 

1130 RETURN uui 
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ave you ever wondered how 
nice it would be to have your 
computer print checks for you? 
Of course you have! It’s so easy (of 
course). You set your computer in front 
of you and you enter the date, the 
amount, and the payee and your trusty 
micro prints out a check. Simple, right? 
| mean, what could be easier? Well... 
it’s not exactly that simple. It’s not so 
simple because of the line where you are 
supposed to write out the amount of the 
check in words. You know — $347.12 
becomes THREE Hundred FORTY- 
SEVEN Dollars and "/1oo, etc. Now 
how would you get your micro to do 
this? As you may have guessed, the 
answer is in the accompanying listing. 
With a few DATA statements and a 
little clever programming, I’ve come up 
with a nifty routine to solve this prob- 
lem. The subroutine listed (which will 
be explained in detail) is capable of 
generating an alphabetic string for any 
amount from $0.01 through $99,999.99, 
Following are several examples. Before 
we discuss the mechanics of this routine 
let me digress for just a moment. While 
this program was originally written for 
a Model 100, it can be used without any 
modification on just about any other 
computer. Also, if you do have visions 
of one day keeping your checkbook ona 
computer (or if you are already doing 
so), this subroutine can be used to very 
easily incorporate the added feature of 
check printing. 
Now for the explanation. Lines 50, 
60, and 70 are DATA statements. These 
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are simply the words for the various 
numeric amounts. Line 50 contains the 
numbers ONE through TEN and also 
the word No when the amount of the 
check to be written is less than one dol- 
lar. Line 70 contains the words for mul- 
tiples of ten: TEN, TWENTY, ..., 
NINETY. Because of the way we count 
between TEN and TWENTY, line 60 
has been entered and contains the words 
for the numeric values between these 
two amounts. Line 80 reads these nu- 


double precision is simple. The highest 
value this routine was designed to han- 
dle is $99,999.99. which contains seven 
digits. Using a single precision 4-byte 
variable yields only six digit accuracy. 
Hence, double precision is used. Be- 
cause of the Model 100's default to dou- 
ble precision, ГП refer to the variable 
throughout the explanation as X and 
not X#. 

The variable A is a string which is 
used to store the alphabetic interpreta- 


A в I ea e ih V me л V A Uma ы Gm e me i mt ы mea e mea mn ч.4 a 


"You set your computer in front of you and you enter the date, the 
amount, and the payee and your trusty micro prints out a check. 
Simple right? .. . Well... Из not so simple because of the line where 
you are supposed to write out the amount of the check in words. You 
know — $347.12 becomes THREE Hundred FORTY SEVEN Dollars 
and 12/100, etc. Now how would you get your micro to do this? ... With 
a few DATA statements and a little clever programming, l've come up 
with a nifty routine to solve this problem." 


А а а а ра р ра ча р 4 а ы р 4 р 4 ры рь А рь. 4 речь. Ачы 4 a А mt рь 4 me ee e a met т 


merics words into three arrays: А1$, 
A2$, and A3$. Because I have defined 
all variables beginning with the letter 
“A” to be strings (see Line 10), I don’t 
have to include the dollar sign “5” as a 
variable type specification. 

The routine for determining the alpha- 
betic text begins at line 110. At this 
point the subroutine expects a double 
precision variable named X# to contain 
the dollar amount to be examined. The 
reason for the value having to be in 


tion of the numeric amount. In line 110 
it is set to a null string. Also in line 110, 
the original value of X is stored in ХІ, 
Next the routine checks to see if the 
value of the check is less than one dollar. 
If it is, the string is assigned a value of 
“No” contained іп А 1(0), and execution 
is transferred to line 150 where the word 
“Dollars” will be added prior to the 
addition of the fractional part (cents). 
Lines 120, 130, and 140 all work essen- 





Ask your dealer for the Porta™ series 
from Skyline—to help you work faster and better! 


PortaCalc'" — Model 100 "electronic spreadsheet" with 14 column by 26 row workspace! 
Full use of the built-in function keys to save, load, screen print, report print, or to look 
behind the data at the formulas in use. Hau 


Full arithmetic operators including exponentiation, absolute value, integer, summation, 
and averaging. Calculations are done to 14 digits of precision and displayed up to 9 
digits. User selectable decimal place from none through seven—not just one, two, or 
floating! Formula replication is included to allow fast creation of worksheets. 


Worksheets may be saved; loaded, or merged using the computer's. memory or 
cassette. Often used templates сап be saved іп memory for instant recall. 


Two powerful utility programs are included. with PortaCalc at no extra 
charge! PortaDex'" is a data exchange program that allows reformatting 
PortaCalc files into the DIF format used by VisiCalc. PortaPrint™ is.an 
enhancement to the Model 100's text editor, adding the ability to adjust 
left, right, and top margins, and page length. Page numbering, headers, 
centered lines, flush right justification, new page control, and more. 


Comes. with extensive documentation in padded 3-ring binder. Includes 
tutorial, detailed reference section, and executive level sample templates. 
Fully illustrated with screen prints, examples, and hints. 


PortaStat'" — Correlation, regression analysis, and descriptive statistics 
package, designed to be a working tool for today's businessman. 

Data can be input from cassette, memory, or keyboard. Interactive with 
PortaCalc data files! Thoroughly. documented, includes tutorial. 


PortaFin'" —Present value, net present value, future value, annuities, 
interest factors, loan constants, internal rate of return and more! This user- 
friendly package prompts you for the needed input data, then gives you 
the answer to your loan or investment problem! Interactive with PortaCalc 
files, allowing you to "read" cash flow data from memory. Keyboard or 
cassette input also available. 


РопаМах“ — The powerful ‘simplex’ method of linear programming. Find 
the optimum ‘mix’ for a given set of constraints. Interacts with. PortaCalc 
files to avoid time-wasting repetitive data entry. Tutorial, examples, and 
bibliography included. 

PortaFolio'" — Stock and bond valuation, betas, Macaulay's duration, yield 
to maturity, bond swap calculations, and much more. All in-an easy to use 
program, interactive with PortaCalc data files. Supplied with comprehensive 
instructions and reference manual. 





Portacalc 






All Porta series programs are supplied on cassette and require 24K RAM. 
Pricing — PortaCalc is $69.95, all others are $44.95 each. 

If ordering direct, add $2.00 shipping and rerit per order. 

Dealer inquires invited. à; 


4510 W. Irving Park Rd. е Chicago, IL 60641 © (312) 286-0762 


tially the same way. These statements 
set up a variable Y to equal the integer 
number of thousands, hundreds, and 
units of dollars. Each line then exam- 
ines the value of Y and, if not equal to 
zero, calls the subroutine at line 200 to 
get the alphabetic expression for the 
number Y. For thousands of dollars, Y 
can have a value іп the range of 1—99; 
for hundreds of dollars Y can be any 
value from 1—9; and for units, Y takes 
on a value of 1—99. On return from the 
subroutine starting at line 200, lines 120, 
130, and 140 append the variable B$ to 
A$, and add the appropriate wording 
such as "Thousand" or *Hundred." At 
the beginning of lines 130 and 140 the 
value of X is decreased to handle the 
remaining amount. For example, say 
we want to print the value $4,205.67. At 
the beginning of line 130, the value is 
reduced to 205.67, and at the beginning 
of line 140, it is further reduced to 5.67. 
At line 160 X is further reduced to the 
number of cents remaining (in this exam- 


Examples: 











The listing: 


10 CLEAR 5@@:DEFSTR A:DEFINT I:CLS 
50 DATA No,ONE,TWO,THREE,FOUR,FIVE,SIX,S 


EVEN ,EIGHT,NINE,TEN 
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ple .67), and multiplied by 100 to make 
itan integer number that can be printed 
as a fraction over 100. 

The subroutine at line 200 is what 
really makes this program shine! Given 
any number between | and 99, it returns 
the appropriate text by looking at the 
alphabetic arrays Al, A2, and A3. Line 
200 checks to see if the variable Y is less 
than or equal to 10. If so, then things are 
easy and we simply set B$ equal to the 
(alphabetic) value Al(Y) and return. At 
line 210, we check to see if the value of Y 
is in the range of 11 through 19, and if 
so, sets B$ equal to the appropriate 
value found in array A2 and returns. 
Now comes the tricky part. We knowat 
line 230 that the value lies in the range of 
20—99 and that we will need a tens 
“word” and (possibly) a units “word.” 
First we set B$ equal to the string in A3 
that comprises the tens part. We do that 
by taking the integer part of Y divided 
by 10 and using the result as a pointer to 
the “tens” array of A3. Next, a check is 


made to see if the remainder of dividing 
by 10 is equal to 0 by using the modular 
arithmetic function MOD. If the result 
is not 0, then we add a hyphen (“—”) 
and add the string for the units “word” 
from the array Al. Upon returning 
from this subroutine, the variable B$ 
now contains the appropriate text to be 
concatenated onto the variable A. Easy 
as pie! 

By the time execution gets to line 150, 
all that is left to do is to add the appro- 
priate fraction of 100 and we’re done. 
When the routine returns from line 170, 
the variable A contains the text to be 
printed. 

Lines 300—310 have been included to 
illustrate how this routine could be 
called by a program requiring the alpha- 
betic text for a numeric amount. Line 
300 inputs a dollar amount and checks 
to make sure it is within the range of 
$0.01 — $99,999.99; line 310 calls the 
subroutine and (upon returning) prints 
the result. 


60 DATA TEN,ELEVEN, TWELVE, THIRTEEN, FOURT 


INETEEN 


100 ‘start 


EEN, FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,N 


78 DATA TEN, TWENTY,THIRTY,FORTY,FIFTY,SI 
XTY, SEVENTY, EIGHTY, NINETY 

80 FOR 150 TO 18:READ А1(1):МЕХТ I:FOR I 
с) TO 9:READ А2(1):МЕХТ І: РОК 
EAD АЗ (1): МЕХТ I 

98 GOTO 500 


Ігі TO 9:R 


110 A=""sXi=XsIF Х<1 THEN А=А1 (0) : БОТО 1 


50 


Hundred" 


150 А-А" 
+"5" 


s and 75/- 


TURN 


168 X=X-INT(X) s 1154 + 188: А=А+" 
1410 THEN А=А+”@" 

165 A=A+MIDS(STRS(I1) ,2)+"/180" 

178 RETURN 

200 IF Ү<=1@ THEN BS$=A1(Y):RETURN 

210 IF Y>1@ AND У< 28 THEN В%-А2(Ү-10):КЕ 


120 Ү=0:1ІҒ Х<1000 THEN 150 ELSE Y=INT(X/ 
1000): G0SUB 200: А=А+В$+" 
130 Х-Х-Ү%1000:Ү-д:ІҒ Х<100 THEN 140 ELS 
ЕҮ= ІМТ (Х/100) : А= А+" 


Thousand" 


";GOSUB 280:A=A+BS+" 


140 Х-Х-Ү%100: Үс : ІҒ X<1 THEN 150 ELSE Y 
=INT(X) з А=А+" 


":608UB 200: А=А+В$ 


Dollar":IF INT(X1)<>1 THEN АзА 


and "iIF I 


220 B$zAS(INT(Y/10)) : IF YMOD1@<>@ THEN В 
$2B$t"-"*A1C(YMOD10O) 


230 RETURN 


500 PRINT"Input amount: 
VAL(A) s IF X<.@1 OR Х>99999.99 THEN 300 
310 GOSUB 100:РКІКТ A:GOTO 300 


"SILINEINPUTA: X= 
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PRICKLY-PEAR SOFTWARE 
. QUALITY PROGRAMS FOR YOUR MODEL 100 


X 


MONSTERS ' 
& MAGIC 


Monsters & Magic 


The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling up yourcharacter's 
basic ability scores and buying equipment. When you are 
ready it's into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight- each with it's own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000- place descrip- 
tion combinations in thistext based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape—24K 


Astrology 


Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
and aspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 796 sales 
tax. Orders shipped within two days. 


————_ 


A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 


b 


о 
оо 
о 


GANGBUSTERS 


Gangbusters 


If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have whatit takes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you'll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 


Stocked by Quality Dealers, or 
Send Order To: PRICKLY-PEAR SOFTWARE 


= 9234 E. 30th Street жекке 
қатан ] 
(MasterCard | 

к. РГ, 


Tucson, Arizona 85710 
(602) 886-1505 
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ur world traveling publisher, 

Chief Petty Officer L. Falk, re- 

cently searched the world for the 
best use of the M100 in a realistic situa- 
tion and displays his best efforts on the 
cover this month. If you happen to not 
recognize the scene, it’s somewhere in 
the Mediterranean Sea, possibly near 
Greece? Only our publisher knows for 
sure. The pilot of his cruise ship ob- 
viously knows his way around for he has 
a computer to help and a CPO to pro- 
gram it for him. Unfortunately, the pro- 
gram was lost at sea and failed to be 
given proper publication. At the request 
of the CPO I will try to steer his ship 
home using our M100. 

One of the most important items in 
navigation, whether by water or air, isa 
thorough understanding of the many 
factors that influence your ability to 
navigate. In airplanes there are primar- 
ily two factors; ie, airspeed and wind 
speed, the latter referred to as “cur- 
rents." In boating or sailing there are 
several currents to consider. A defini- 
tion of current refers to the horizontal 
movement of the water through which a 
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vessel moves, and includes also wind, 
compass errors, steering inaccuracies, 
errors in engine RPM indications and 
ship performance (ie, fouled bottom, 
poor design, etc.). 

Dead reckoning is a form of naviga- 
tion used frequently because of its quick 
calculation (using a map and compass 
rose) and one finds by using dead reck- 
oning that a vessel's course and speed 
are seldom if ever identical to the actual 
course or track made. The difference 
between the actual track and the in- 
tended track is caused by currents men- 
tioned above. 

The more common method of deter- 
mining the effects of currents involves 
using what is referred to as a "current 
triangle." The triangle in Figure | shows 
the six descriptions used in establishing 
the current triangle. The ordered course 
(c) and speed (s) are the direction and 
speed you would like to travel. The cur- 
rent set (S) and current drift (d) refer to 
the current direction and speed (exam- 
ple: wind or water current from 180 
degrees at 6 knots, or from the south, 
blowing north, at 6 knots). The course 


to follow to travel from point A to point 
B requires heading in a true heading 
direction (tr) that corrects for the cur- 
rent and at a resultant speed of advance 
(soa). A, B, and C refer to the angles 
used in the formulae. 

From the current triangle (Figure 1) 
опе сап 1) find the resultant track (tr) 
and speed of advance (soa) when the 
vesels proceed at a given course (c) and 


speed (s(OPTION 1 AT THE MENU), 
2) find the course (c) and speed (s) to 
achieve the intended track (tr) and speed 
of advance (ѕоа)(ОРТІОМ 2 AT THE 
MENU), or 3) find the current speed (s) 
and direction (d) when the two courses 
are known (OPTION 3 AT THE 
MENU). The computer program 15 self- 
instructing; however, remember that 
when you get current information such 


as winds, that means the direction FROM 
which the winds come. The other impor- 
tant consideration is the use of radians 
instead of degrees. The program auto- 
matically corrects for information en- 
tered in degrees. Degrees may be en- 
tered as decimal degrees, ie no minutes 
or seconds, and the resultant degrees are 
given as integers. 
May you have smooth sailing. 





Figure 1. Current Triangle 


A 
(Starting Point) 


Menu Selection 1 


course direction(c)? 280 
course speed(s)? 200 
current direction(d)? 140 
current speed(S)? 20 


THE TRUE HEADING(tr) IS 276 
DEGREES 

THE SPEED OF ADVANCE (SOA) 
IS 185.1 KNOTS 


return to menu(1) or this section(2) 


Menu Selection 2 


this section determines the course and 
speed to maintain soa and tr 

true heading(tr)? 330 

speed of advance(soa) 200 

current heading(d)? 140 

current speed(s)? 20 


THE COURSE HEADING FOR tr 
AND soa IS 334 DEGREES 

THE SPEED FOR tr AND soa IS 
185.1 KNOTS 


return to menu(1) or this section(2) 





с 









(Current Vector) 


B (desired course) 


course as a result of 
current acting on true 
course. 


course as a result of 
current acting on a course 
(to maintain true course) 
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THIS SECTION WILL FIGURE THE 
CURRENT DIRECTION AND SPEED 
true heading(tr)? 330 

speed of advance(soa)? 200 

course direction(c)? 40 

course speed(s)? 200 


THE CURRENT SPEED IS 229.4 
KNOTS 

THE CURRENT DIRECTION IS 95 
DEGREES 


tr 


RETURN ТО MENU(1) 
OR THIS SECTION(2) 


The listing: 

S CLS:DIMA(14) ,S(14) 

10 LINE(108,12) -(120,36) 

20 LINE-(100,36) 

30 LINE-(180,12) 

40 LINE(110,35)-(110,38) 

50 LINE(85,38)-(123,38) 

55 PRINT@175,CHR$(147) 

60 LINE-(120,42) 

70 LINE-(113,43) 

80 LINE-(100,42) 

90 LINE-(85,43) 

190 LINE-(85,38) 

110 LINE (0,44) - (259,48) 

120 | ТМЕ (0,40) - (85,42) 

130 | ТМЕ (0,55) - (239,0) 

140 LINE (123,39) - (239,47) 

150 PRINT@137,CHR#(146) 

160 PRINT@3,"I‘'M POCO THE SAILOR MAN!” 
165 PRINT@43,"I live іп"; ТАВ (20), "Рговре 
ct Land!" 

200 DATA 7456,20,6269,108,6269,20,6269,18 
,7032,20,7456,20,5269,60 

210 DATA 5269,20,5586,10,7032,20,5585,10 
,4697,20,5586,20,5269,60 

300 FOR X=1 TO 14 

310 READ A(X),8(X) 

320 SOUND A(X) ,8(X) 

330 NEXT X 

990 GOSUB 4900 

1000 CLS:PRINT@18, "MENU" 

1018 PRINT@43,"1) FIND TRACK (tr) AND SP 
EED(SOA)" 

1020 PRINT@83,"2) FIND COURSE (c) AND SP 
EED(s)" 

1030 PRINT@123,"3) FIND CURRENT (d) AND 
SPEED(S)" 

1040 PRINT@163,"4) END PROGRAM" 

1050 INPUT"SELECTION (1-4) ":0 

1060 ON 0 GOSUB 1100,2000,5000,4000 

1100 КЕМ calculate tr and SOA 

1105 CLS 

1110 INPUT "course directioníc)";C 

1120 INPUT"course speed(s)";SP 

1130 INPUT"current direction(d) "3D 

1140 INPUT"current ѕреед (5) ": 8С 
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Menu Selection 3 


Determination of current 
effects when true course 
and actual course are known 


1170 FX=SP#SIN(C#ATN(3D13) /90) *SCXSIN(D& 
АТМ (3015) /90) 

1188 FY=SP*COS(C#ATN(3D13)/90)+SC*COS (D& 
АТМ (5018) /90) 

1190 ЕК-ЗОК ( (ЕХЖЕХ) + (РУЖЕУ) ) 

1200 AL=FX/FY 

1210 ZL=ATN(AL) %90/ (АТМ (3013)) 

1212 IF ҒХ<0 AND РУ В THEN ZL=360+ZL:G0T 
01216 

1213 IF ҒХ<0 AND FY<@ THEN ZL=180+ZL:GOT 
01216 

1214 IF FX>@ AND FY<@ THEN ZL=180+ZL: ВОТ 
01214 

1218 IF FX>@ AND FY>@ THEN ZL=@+ZL 

1216 CLS 

1220 PRINT"THE TRUE HEADING(tr) 15"; : РКТ 
NTUSING"####"3;ZL;:PRINT" DEGREES" 

1230 PRINT"THE SPEED OF АПУАМСЕ (508) IS" 
3:PRINT USING"44498. ЕК PRINT” KNOTS" 
1250 PRINT824Q,"return to menu(1) or thi 
s section(2)" 

1260 AS=INKEY$ 

1265 IF A$z"" THEN 1260 

1270 IF А$="1"ТНЕМ 1000 ELSE 1100 

2000 REM detn heading and speed for true 
course 

2005 CLS 

2010 PRINT"this section determines the c 
ourse and speed to maintain soa and tr" 
2018 INPUT"true heading(tr)";TH 

2020 INPUT"speed of адуапсе (ѕоа) "; 5А 
2030 INPUT"current heading(d)";CH 

2040 INPUT"current speedís)":CS 

2050 IFTH<CH THEN НН=180+ТН: БОТО 2090 
2060 IFTH>CH THEN CH=18@+CH:GOTO 2090 

2070 IFTH=CH THEN GOTO 2500 

2090 AB=HH-CH 

2095 BA=AB*ATN(3D13)/98 

2100 GW=SQR(SA#SA+CS#CS-(2*SA*CS*COS (BA) 


2110 XC=(CS/QW) *SIN(BA) 

2120 CX=ATN(XC/SQR(-XC#XC+1) ) 
2125 ҒС-СХ%90/АТМ(3013) 

21380 NC=FC+TH 

2135 CLS 





214@ PRINT"THE COURSE HEADING FOR tr AND 
soa IS ";:PRINT USING"iiit" 5 МС; 
:PRINT" DEGREES" 

2150 PRINT"THE SPEED FOR tr AND soa IS"; 
:PRINT USING" ####.#"53QW;: PRINT" KNOTS” 

2160 GOTO 2550 

2500 REM headings in same direction 

2510 PRINT"THE HEADING IS ";TH;" DEGREES 
AND THE SPEED IS ";8A*C8;" KNOTS" 

2550 PRINT@248,"return to menu(1) or thi 

5 section(2)" 

2560 A$-INKEY$ 

2578 IF А$="" THEN 2568 

2580 IF A$="1" THEN 1000 ELSE 2000 

5000 REM TO COMPUTE CURRENT AND SPEED 

3018 CLS:PRINT"THIS SECTION WILL FIQUIRE 
THE CURRENT DIRECTION AND SPEED" 

3020 INPUT"true heading (tr)";JK 

5050 INPUT"speed of advance(soa)"3S0 

3040 INPUT"course direction(C)"; CD 

3050 INPUT"course speed(S)";FS 

3050 AG=JK-CD 

3070 IF 465180 THEN AG=340-AG 

5075 IF AG>36@ THEN AG=720-AG 

3880 GA=AG#ATN(3D13)/90 

3090 55-50К(Ғ5%Ғ5%50%50-(2%50%Ғ5%С05(6А) 
)) 

5100 ҒҒ-(50/55) *SIN(GA) 





or office each month! 


PCM will bring you the finest and most up-to-date information available anywhere for your TRS-80 
Model 100 Portable Computer. Whether your interest is programming, using the Portable Computer's 
fabulous built-in functions or communicating with other Portable owners, PCM is for you. 

Each month we'll bring you a host of articles, ready-to-run programs for business and professional use or 
just plain fun. And each article will be in an easy-to-read style...not computerese. 
Subscribe to PCM today! A dozen issues are only $28 ($35 in Canada and Mexico). 


PCM — The Portable Computing Magazine 
9529 U.S. Highway 42 

P.O. Box 209 
Prospect, KY 40059 


YES! Sign me up for a year (12 issues) of Portable Computing 


Name 
Address 
Ci е ee rae 
O Payment Enclosed 
Charge © VISA 
Account Number 
Signature 


O MasterCard 


first copy. 


Your Perfect Portable Companion 


Now, here's your opportunity to have PCM — The Portable Computing Magazine delivered to your home 


D American Express 
Interbank # (MC only) 

es = ОВГА Exoiration.bate 

Subscriptions to Portable Computing are $28 a year in the United States. 


Canadian and Mexican rate is U.S. $35. Surface rate elsewhere U.S. $64. Airmail | visa 
U.S. $85. АП subscriptions begin with the current issue. Please allow 5-6 weeks for | 


3110 FH=ATN(FF/SQR(-FF#FF +1) ) 

3120 FR=FH*9O/ATN(SD13) 

5150 IF CD>JK THEN DD=CD-FR ELSE DD=FR+C 
D 

3135 CLS 

3140 PRINT"THE CURRENT SPEED IS ";:PRINT 
USING" ####.#"5SS;:PRINT” KNOTS” 

3150 PRINT" THE CURRENT DIRECTION IS ";:P 
RINTUSING"###";DD;:PRINT" DEGREES" 

3160 PRINT@240,"RETURN TO MENU(1) OR THI 
8 SECTION(2)" 

3170 AS=INKEYS 

3180 IF А$="" THEN 3178 

3190 IF А$="1" THEN 1000 ELSE 5000 

4000 MENU 

4900 CLS:LINE(72,40)-(138,24) 

4910 LINE-(132,48) 

4920 LINE-(73,40) 

5000 PRINT@17@,"A" 

5010 PRINT@104,"C" 

5020 PRINT@263,"B" 

5040 PRINT@137,"c" 

5050 PRINT6178,"s" 

5060 PRINT@181, ng" 

5070 PRINT@218, "tr" 

5080 PRINT@257,"S0A" 

5090 PRINT@183,"d" 

5100 FOR X21 TO 5000:МЕХТХ 

5110 RETURN PCM] 
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Direct-Conn 


E 26-1410 


Connects your Мо 
phone jack for send 
over phone lines. | 
(non-prime time) on 
Dow Jones News/R 





Model 100 System wi 
ack Accessories 


Acoustic Coupler 











100 to a modular 
and receiving data 
des one free hour 
1 CompuServe and 
»val. 


fhaek | 


n little computers? | 
DY. MORAN 


jealers. CompuServe is a registered trademark of 
nes 8 Co., Inc 





gistered trademark of Dow 





3995 
NEW! 








CCR-81 Cassette Recorder 


9933 


Save your program and data files on cas- 
settes, or use Model 100’s ready-to-run 
software. Includes cue/review, tape 
counter and LED data record indicator. Op- 
erates on AC or batteries (not incl.). 


Ideal for travelers who rely on their portable TRS-80 Model 100 for 
computer-to-computer communications or to access information services. 
Direct connection to a modular phone jack may be unavailable, so the 
Acoustic Coupler is your safety valve. You simply connect your Model 100 
to a telephone handset via the Acoustic Coupler and you're ready to log on. 






System 
Briefcase 


4995 


Components 
not included 


A lightweight and durable carrying case! 
System briefcase is spacious enough to 
hold your TRS-80 Model 100, the CCR-81 
Computer Cassette Recorder, acoustic 
coupler and cables. 





a NEW 1984 TRS- 80 COMPUTER CATALOG! Send for your free copy. pa 





Май To: Radio Shack, Dept. 84-A-726 
нн 300 One T Center, Fort Worth, Texas 76102 
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GOLDLABEL" 
BLANK CASSETTES 


x PREMIUM 5 SCREW SHELL 
x COMPUTER DATA QUALITY xLOW NOISE 
ж МАРЕ IN USA «GUARANTEED 


1 DOZEN C-10 LENGTH $8.50 + $2.50 shpg. 
2 DOZEN C-10 LENGTH $16.00 + $3.50 shpg. 


1 DOZEN C-30 LENGTH $12.50 + $2.50 shpg. 
2 DOZEN C-30 LENGTH $23.50 + $3.50 shpg. 


Individual storage boxes (sold only with cassettes) $2.40 per dozen. 
CASSETTE CADDY: $3.95 + $2.00 shpg. 


2 for $7.00 + $3.00 shpg. 
Free shipping on one caddy with each dozen cassettes. 


Foreign orders include shipping at 16 02. per dozen tapes/9 oz. per 
caddy/13 oz. per dozen boxes. Shipped in U.S. by UPS. 


CASSETTE CADDY 


TIRED OF MISPLACED TAPES AND A CLUTTERED WORK AREA? TRY 
OUR HINGED TOP SMOKED PLASTIC CADDY THAT HOLDS 12 TAPES IN 
ONE HANDY LOCATION. EDGE LABELS INCLUDED TO IDENTIFY TAPES. 


CERTIFICATION 
SEAL 


Visa and Mastercard accepted (include expiration date) Orders paid by 
cashier's check, monay order or bankcard are shipped within 48 hours. 
Personal check takes 1-2 wks. No COD. Some foreign sales are restricted. 
Texas residents add 5% tax. 


COLOR SOFTWARE SERVICES 
P.0. BOX 1708, DEPT. R 
GREENVILLE, TEXAS 75401 


Telephone Orders: (214) 454-3674 9-4 Monday-Saturday 


* DEALER INQUIRIES INVITED x QUANTITY DISCOUNTS AVAILABLE 
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(*Little Computer Demo) 


Here'sa short but interesting program to demonstrate some 
of the neat things that can be done with the LCD (liquid 
crystal diode) display on the Model 100. The program asks 
the user to input a number of points. The response, which 
must be a number in the range of 4 through 32, dictates the 
number of sides of an equilateral polygon. The program 
then proceeds to connect each point with every other point. 
It makes an interesting display, especially with even 
numbers such as 8, 10, and 12. Inputting numbers higher 
than 15 will result ina picture that is more black than white, 
but it's still interesting to see how the lines are drawn. 
Inputting value of 32 will result in a completely darkened 
circle. Have fun! 
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The listing: 


5 CLEAR 500: ПЕЕБТК A:DEFINT I-N 
10 CLS:PRINT"Input # of points: 
NPUT A 

15 N=VAL(A):IF №0 THEN MENU ELSE IF N44 
OR N>32 THEN 18 

20 DIM X(33),Y(33) 

25 Rz30:22360/57.2958/N:CLS 

50 FOR 151 TO NeX(I)=R*#COS(Z*#(T-1))8¥(1) 
=R¥SIN(Z#(I-1))sNEXTISX(N+L) =X (12 9 YCN* 0) 
zY(1) 

145 FOR 151 TO N:FÜR Ј=1+1 TON 

1588 X1zX(I) +120: Y1232-YCI) 1: 322X (0) +120:Ү 
2232-Y(J) 

165 LINE(X1,Y1) -(X2,Y2) 
170 NEXT 9: МЕХТ I 

200 А=ІМРОТҒ$ (1) : КОМ 


"РНЕ! 


All work and no play makes Jack a dull boy... 


NOW YOU CAN HAVE 
FUN WITH YOUR 
24K MODEL 100 


4 games for your enjoyment: 


BLOCKADE — Your ‘snake’ grows longer as 
you hit the randomly appearing targets on the 
screen — as long as you don't run into yourself, 
a wall, or your opponent! A one or two player 


real-time game with optional sound and three 
speeds of play. 


REVERSI — A 'board' game in which you try to outflank your 
opponent to end up with the most squares at game's end. Play against 
the computer or another human. 


FRANKENSTEIN ADVENTURE — Find all of the necessary 
equipment to awaken the monster. The clues are hidden and the pitfalls 
are many! 


ALEXIS ADVENTURE - Sail the seas and traverse the islands to 
recapture your kingdom. Chart your course or you may sail on forever! 


— a lot of software for a little silver 


CERTIFICATION 
SEAL 


All four games on tape for only $24.95 SilverWare POBox 21101 
Calif. residents add 6% tax, overseas add $1.00 shipping Santa Barbara, CA 93121 


Mastercard & Visa Dealer inquiries invited (805) 966-1449 





Computer to Computer 

Communications 

Dace, “ete ылы X 
With TELCOM 


l 


By Robert Frowenfeld 


ne of the most compli- 
cated tasks in realizing the 
full potential of compuers 


is the problem of having computer 
A talk to computer B. Some- 
times it’s just not enough to spend 
tens (if not hundreds) of hours 
developing a program that will 
make your computer stand on its 
head and spit wooden nickels— 
there’s always somebody in the 
crowd who cries, “Hey, that’s a 
great program, but can you trans- 
fer it to my computer?” Well, the 
TRS-80 Model 100 has what 1 
believe to be one of the finest tele- 
communications packages avail- 
able. And the cost can’t be beat— 
it’s free. Just power up your 
portable companion and you'll see 
a program called TELCOM. 

Our friends in Fort Worth must 
have worked overtime on this one, 
because for me, a novice in compu- 
ter-to-computer communications, 
TELCOM is the simplest thing in 
the world to operate. 1 own a 
TRS-80 Model 16 and a Model 
100, and from time to time I’ve 
found TELCOM the solution toa 
lot of headaches. While my Model 
100 is equipped with 24K of memo- 
ry, there are times when the memo- 
ry starts running low. I’ve found it 
very convenient to transfer my 
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programs to my Model 16 and 
later, when I need them back, to 
load them back to the Model 100. 
I’ve used my old Model I’s tape 
recorder to save and reload Model 
100 programs, and it does an 
excellent job, but there’s just no 
comparison to the speed and ver- 
satility of being able to save my 
Model 100 programs on an eight 
inch floppy. Imagine, being able 
to store over 400K of Model 100 
programs and data on a single 
disk! I’m also in the process of 
converting a lot of my Model 16 
programs to work on the Model 
100. Having a 24-line by 80-col- 
umn display available (on the Mo- 
del 16) to perform the necessary 
modifications makes designing 
software for the Model 100 on the 
Model 16a simple task indeed. By 
using the Model 100's TELCOM 
program, the Model 16's TER- 
MINAL package (which, inciden- 
tally, also comes free with the 
Model II, 12, and 16), and an RS- 
232 serial communications cable, 
transferring programs back and 
forth between the two machines 
has become a breeze. Oh yes, lest I 
forget—an additional advantage 
to being able to load programs 
from the Model 16 to the Model 
100 is. . . (drum roll please)... 
SCRIPSIT. Using the Model 
100's built in word processor, it's 
great to be able to create doc- 
uments on the Model 100, 
load them into Model 16 
SCRIPSIT, make the ne- 
cessary formatting chan- 
ges, spelling corrections, 
etc., and then print out 
the final product. For you 
executives out there in 
PCM land—this could be 








the solution to a lot of problems! 

But now, let's get down to the 
nuts and bolts involved in getting 
the Model 100 (and TELCOM) 
and the Model II, 12, or 16 (and 
TERMINAL) to talk to each 
other. First, you must have the 
proper cable connecting the two 
computers together. Radio Shack 
has a Model 100 serial communi- 
cations cable available (part #26- 
4403), and a null modem adapter 
(part 426-1496). You'll need both 
of these because the computers 
aren't talking through a mode- 
m;are talking directly to each 
other. For those of you who like to 
get technical, the null modem adap- 
ter switches cable line pairs 2,3 
and 4,5 as well as rearranges lines 
6,8, and 20 so the two computers 
can communicate with each other. 
If you find the desire to save the 
$40 it will cost to purchase the 
cable and null modem adapter, 
you can build your own for just a 
few dollars by following the dia- 
gram in the Model II, 12, or 16 
owner's manual in the Technical 
Section under the heading of Mo- 
del П to Model I] communica- 
tions. Its very easy to follow (If I 
can do it, anyone can.). 

So, now you have your cable 
and null modem adapter plugged 
together with one end of the cable 
plugged into the Model 100. Take 
the other end and plug it into 
Serial Channel A of your Model 
16. So much for the mechanics. 

From TRSDOS Ready on the 
Model 16 type TERMINAL (press 
ENTER) and place the cursor on 
the Model 100's menu over TEL- 
COM and press ENTER. Would 


you believe we are less than two minutes 
away from getting the two computers 
talking to each other? 

On the Model II, type the letter “5” 
and press ENTER, and on the Model 
100, press the function key F3. We are 
now ready to enter the communications 
protocols for each computer. For each 
machine, this will consist of transfer 
(Baud) rate, word length, parity, and 
stop bits. On the Model ІІ, TERMI- 
NAL will display: Enter TRSDOS Com- 
mand (1-79), indicating that you should 
enter a command line between | and 79 
characters in length. You must now 
type: SETCOM A=(300,7,E,1) and press 
ENTER. The Model 11 will respond 
with: PORT A ENABLED AS 
(-BAUD = 300, BITS = 7, PARITY = 
E, STOPS =1. The Model 100 will be 
prompting indicating that it is awaiting 
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"Our friends in Fort Worth 
must have worked overtime 
on this one, because for me, 
anovice in computer-to-com- 
puter communications, TEL- 
COM isthe simplestthing in 
the world to operate. | own a 
TRS-80 Model 16 and a Model 
100, and from time to time 
l've foundT ELCOMthe solu- 
tion to a lot of headaches." 
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a command to change the communica- 
tions protocol. Simply type: 37E1D. 
The two computers are now set up to 
“talk to each other” using the settings: 
Baud Rate = 300, Word Bits =7, Parity 
= you with the word “Stat,” Even, and 
Stop Bits = 1. It really doesn’t matter 
too much what the settings are; what 
really matters is that they must be iden- 
tical for both machines. 

Now for the last step. On the Model 
П, type the letter “T” and press ENTER; 
the screen will go blank. On the Model 
100, press the function key F4. That’s it! 
If you did everything correctly, any- 
thing you type on one computer’s key- 
board will be echoed on the other. If you 
find that you can type on the Model 100 
and, although it echos on the Model Il it 
is not displaying on the Model 100, 
press the function key F4 on the Model 
100 to change the duplex mode from 
Full to Half. Similarly, if you aretyping 
on the Model II and you can't see what 


To upload a program from the Model 100 to the Model II, the steps a—j must be 
performed in order: 
a) Model 100: Select the file to upload and make sure it is in ASCII format. 


b) Model ІІ: Call up the TERMINAL program, set up the communications 
protocol. 

с) Press “R” and hit ENTER. 

d) Press “Y” to open the RAM buffer. 

€) Press *Y" to reset the RAM buffer (if necessary). 

f) Model 100: Enter TELCOM, Press function key F4 to get into TERM mode. 

g) ; Press function key F3 to select the UPLOAD option. 

h) In response to the “File to Upload?” question, enter the file name 

and extension to transfer. 

i) Model IE . Press “Т” to enter the TERMINAL mode. 

j) Model 100: In response to the “Width:” question, hit ENTER. 

k) Model П: Press BREAK key to return to TERMINAL menu. 

1) Press “С” to copy RAM buffer to disk. 

m) Respond to “Enter Filespec?" with file name to save on Model II. 


If you've done everything correctly, you should see the program being trans- 
ferred on the video display of the Model II. Depending on the setting on the duplex 
on the Model 100, you may (or may not) also see the file as it is sent. Follow steps 
К-т above to download the Model 1% RAM buffer to disk, 

To transfer files in the other direction from the Model П to the Model 100, follow 
the procedure outlined below: 


a) Model Il: Select the file to upload and make sure it is in ASCII format. 

b) Call up the TERMINAL program, set up the communications 
protocol. 

с) Press “С” and hit ENTER to сору file into RAM buffer. 


In response to “Enter Filespec?” enter file name to transfer. 
Enter TELCOM, Press function key F4 to get into TERM mode. 
Press function key F4 to select the DOWNLOAD option. 

g) | Тп response to the “File to Download?" enter the file name and 
extension to transfer. 


d) 
е) Model 100: 
5 


h) Model Il: 


Press “X” and hit ENTER to enter TERMINAL and TRANS- 
MIT mode. 
i) After transmitting, press BREAK to return to main menu. 


A few notes of caution and assistance. First, to eliminate the thing that results in 
problems more often than anything else, make sure that the two machines have the 
same communications settings: Baud rate, parity, word length and stop bits. 
Second, make sure the RAM buffer is clear on the Model II before you transfer 
anything into it. This can be done by entering a “D” (for display) from the 
TERMINAL main menu. Also, make sure your connections are good and tight, 
and don’t ever, ever, ever, turn off either machine or pull out any cables until you 
have turned off the communications function. On the Model II, this can be done 
with the command SETCOM A=OFF from TRSDOS or TERMINAL. On the 
Model 100, TELCOM can be exited by pressing the function key F8. If, by 
accident, you don’t turn off the channels, a “glitch” in the line (which can be caused 
by pulling оша cable, turning off the machine, or letting your Model 100 shut itself 
off if it remains unused for a few minutes) can make either (or both) machines lock 
up. 
So there you have it. It’s really not as difficult as it sounds. Give it a try and see if 
you сап be the first person on your block to get your Model 100 and Model П, 12 or 
16 talking to each other. Happy communicating! 
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you are typing, you will have to get back 
to the Communications Menu (by press- 
ing BREAK) and issuing the command 
“E” to toggle the self-echo option. 
Now that the Model 100 and Model 
П are talking to each other, transferring 
whole files is a breeze. The one thing to 


keep in mind if you are transferring a 
BASIC program is that it must be in 
ASCII format. To save a file in this 
format on either machine, use the “A” 
option when saving the program. As an 
example, to save the program named 
XYZ, you would type: SAVE"XYZ",A. 

[PCM 
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So you want that program out there? Don’t just download it, 


NOAD 


download it with... 


id you ever download a BASIC 
Юр: from CompuServe 

and find that it had extraneous 
carriage returns? Have you transmitted 
а Model П program to your Model 100 
and discovered that the control Js you 
used were causing DS errors? If either of 
these things has happened to you, the 
program which follows can help. 

The Download Aid program analy- 
zes a BASIC program stored in ASCII. It 
replaces the sequence of characters pro- 
duced by the control J on the Model II 
with blanks. It attempts to remove 
extraneous carriage return characters. 1 
say “attempts” because this feature is 
not (and cannot be) foolproof, as I will 
explain later. 

Operating Instructions 

The program runs on the Model 100 
and processes a BASIC program stored 
in ASCII („ПО extension). At the begin- 
ning, the Aid program clears the screen 
and displays the title Download Aid. It 
then asks you for certain information. 
Type the appropriate responses, as des- 
cribed below. If you make an error, the 
message “ERROR — RETRY” is dis- 
played in reverse video and the request 
is repeated. 

File Name: 

Type the name of the file you want to 

process. Remember that the file must 

be a BASIC program stored in ASCII 
form. 


If the file is on cassette, you must 
precede the name with “CAS:”. If 
you don't, the program assumes that 
the file is in RAM. 


If the file is on cassette, put the 
cassette into your cassette recorder, 
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By Guerri F. Stevens 


and press PLAY. 


Output on <C>assette or in CR 2 AM? 
If your file is on cassette, you will not 
get this message; the output file will 
be placed in RAM automatically. 


If your file is in RAM, you may 
choose the output device; if you want 
the output file to be written on cas- 
sette, type C (upper or lower case is 
acceptable). If you want the output 
file in RAM, type R. 


If you want the file on cassette, put a 
cassette into your recorder and set it 
to record. This is usually done by 
depressing the PLAY and RECORD 
buttons simultaneously. 


Output file name is F@@xxx 
No response is necessary. This mes- 
sage tells you what the output file will 
be called. The name is always F@@ 
followed by the first three characters 
of the input file name. 


File F@@xxx already exists. 

Do you want to kill it? 
Your output file is going to be in 
RAM but a file of the same name 
already exists. If you want to write 
over it, thus destroying (killing) the 
file, type “yes.” If you want to save 
the existing file, type “no” and the 
Aid program will end. 


If your output file will be on cassette, 
the program cannot check to see if a 
file of the same name exists. It is up to 
you to insert the appropriate cassette 
in your recorder. 


At this point, the Aid program starts 
to process your file. When it is done, it 


will ask you to rewind the cassette if 
either your input or output file was on 
cassette: 


Setrecorderto REWIND; press ENTER? 
Set your recorder to rewind and press 
the ENTER key on the Model 100. 
The cassette will begin to rewind. 


Press ENTER when rewinding is done? 
When the cassette has been com- 
pletely rewound, press the ENTER 
key again. 


The word OK tells you that the Aid 
program is done. Load the output file 
(F@@xxx) and make sure it is correct. 


Extraneous Carriage Returns 

The Aid program detects an extrane- 
ous return by noticing that a BASIC line 
begins with a non-numeric character. 
This technique will not identify an extra 
carriage return if the return precedes a 
number such as the line number after 
GOTO. After the Aid program has fin- 
ished, load the output file from BASIC. 
Any extra carriage returns which pre- 
cede numbers will be flagged with “UL” 
errors. If you get any, list the program 
while in BASIC. The last line listed is the 
one containing the error. Use TEXTto 
delete the carriage return, and try again. 


Program Description 

The program is listed below. Each 
section is preceded by a brief comment. 
The first section clears string space and 
controls the flow of logic through the 
other sections. 

The second section displays the title 
and gets the name of the file to be pro- 
cessed. It performs another section, if 
necessary, to get the output device. It 


then displays the name of the output 
file. If the output device is RAM, it calls 
a routine to check whether the output 
file already exists. It then opens the 
input and output files. 

The section entitled “Process a Line” 
reads the input file one line at a time. 
Each line is checked for the Model II's 
control J: a string of the three hexade- 


сіта! characters 0A OD OA. If found, 
they are replaced by blanks. To handle 
excess Carriage returns, the line’s first 
character is checked to see whether it is 
numeric. If not, it is assumed to be a 
continuation of the prior line. If an 
extra carriage return happens to pre- 
cede a number (such as the line number 
following a GOTO), this technique will 


not identify it as an extra carriage 
return. 

The last two sections rewind the cas- 
sette when necessary, and display the 
error message. 

The variables used in the program are 
listed below. Please note that all varia- 
bles beginning with "I" are integers and 
all those beginning with "S" are strings. 


П  General-purpose integer variable BASIC PROGRAM * 
IS Switch for testing existence of a RAM file with the 30 REM * WRITTEN BY GUERRI F. STEVENS 


same name as the output file * 


SF Source file name 40 REM * GENERAL BUSINESS SYSTEMS 
SG General-purpose string variable ; ІШ, * 
SL Program line being processed 50 REM эке AE AE AE AE AE AE AE AE кенен енен 
SN Source file name without device prefix EXXKEXXXEXXX4XXXK 


SO Output file name 
SP Prior program line 
ST File type code: 


60 CLEAR 1000 
70 MAXFILES=2 


C — cassette input, RAM output 80 DEFSTR S 

R — RAM input, RAM output 90 DEFINT I 

T = RAM input, cassette output 100 GOSUB 210 

X — RAM input, output not yet known 110 IF 1820 THEN END 


SV  3-character string representing Model П control J 120 IF NOT EOF(1) THEN GOSUB 1010: GOTO 
The listing: 120 
130 IF SP<>"" THEN PRINT #2,SP 


10 REM s X кек ек кек + + +++ + + + + + + + + 140 CLOSE 
++ + ++ +++ + + HH EE HH AN 15@ IF ST<>"R" THEN GOSUB 1130 
20 REM * REMOVE EMBEDDED LINE FEEDS FROM 160 END 


THE BHeéch BAR CODE READER 


Add a Bar Code Reader to your 

MODEL 100 includes $279 95 
е 

COMPLETE 


Demonstration and Software 


ТУТУЛУУ из 2 


„Ел 


Model 100 Memory 
to as muchas 32K 


$75.00 each 
$70.00 2 or more 


Dealers contact Bi-Tech Enterprises at 516-567-2444 


Dealer Inquires Welcome 
Pnces subject to change 
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10B Cadough Road 800-645-1165 
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178 ‘SKIPS 

180 КЕМ **4*k ke 

190 КЕМ ж INITIALIZE * 

200 REM жекке 

210 CLS 

220 PRINT TAB(14);"Download Aid" 

238 PRINT 

240 SV=CHR$ (10) +CHR$(13) +СНЕЗ (10) 

250 SFz"" 

260 IF SF="" THEN GOSUB 410: GOTO 260 
270 50="" 

280 IF ST="X" THEN GOSUB 560: GOTO 280 
290 50-50Р"Ғев" 

300 IF LEN(SN)<4 THEN SO=SO+SN ELSE 50-5 
O+LEFT$(SN,3) 

310 PRINT "Output file name is ";S0; 

320 IF ST="T" THEN PRINT ELSE PRINT ".DO 
" 1 GO0SUB 660 

330 IF 1920 THEN RETURN 

340 OPEN SF FOR INPUT AS 1 

358 OPEN SO FOR OUTPUT AS 2 

560 RETURN 

370 'SKIP3 

380 REM *xxx*x*xx*xxxxkk 

390 REM * GET FILE NAME * 

400 REM жетекке екы 

410 STz"X" 

420 LINEINPUT "File Name: ";SF 

430 IF SF="" THEN GOSUB 1220: RETURN 

440 I126(SF,":") 

450 IF 1150 THEN SN=SF : RETURN 

460 IF I1<>4 OR LEN(SF)=4 THEN SFs"" 1 G 
OSUB 1220: RETURN 

470 SG=LEFT$(SF,11-1) 

480 SN-RIGHT$(SF,LEN(SF) -4) 

490 IF SG="RAM" OR SG="ram" THEN RETURN 
500 IF SG="CAS" OR SG="cas" THEN ST="C" 
ELSE SF="" ; GOSUB 1220 

510 RETURN 

520 ‘SKIPS 

S30 REM qd XXX GE кекете +++ + ++ ++ 
540 REM * ASK ABOUT CASSETTE OUTPUT * 
550 REM кке кк ее кекке кек XXX 
560 SG="" 

570 INPUT "Output on «C?assette or іп <R 
2AM" SSG 

580 IF SG]"R" OR SG="r" THEN ST="R" : RE 
TURN 

590 IF SG="C" QR SGl"c" THEN STs"T" : 50 
="CAS:" : RETURN 

800 GOSUB 1220 

618 RETURN 

620 'SKIP3 

650 КЕМ жеж ЗЕЕ ЗЕЕ ЗЕ ЗЕ ЗЕРЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕЕ ЗЕ ЗЕ ЗЕ 
640 REM * TEST EXISTING OUTPUT FILE * 
550 REM ээккккеккек кек кекке кек кк 
660 ON ERROR GOTO 840 

670 15=1 

680 OPEN 50 FOR INPUT AS 1 

698 ON ERROR GOTO @ 
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708 IF IS=@ THEN RETURN 

718 CLOSE 

720 PRINT 

730 PRINT "File ";50;" already exists." 

740 SG="" 

750 IF 56]"" THEN GOSUB 900: GOTO 758 

760 IF SG="NO" THEN PRINT CHR$(27);"pJob 
terminated"; СНЕ 8 (27); "а" : RETURN 

778 1819 

788 KILL 50+", ро" 

790 RETURN 

800 ‘SKIP3 

810 REM 4X4 XX кен кекке GEI REL + 

820 REM * NON-EXISTENT FILE IS OK * 

830 REM кекке ERE EERE 

840 IF ERR=52 THEN 1550 : RESUME NEXT 

850 ON ERROR GOTO 0 

850 ‘SKIP3 

870 REM кек кақ +++ 

880 REM * KILL OLD FILE? ж 

890 REM sx xxxi x 

900 INPUT "Do you want to kill it";56 

910 IF SG="yes" THEN SG="YES" ; RETURN 

920 IF SG="no" THEN S6z"NO" : RETURN 

938 IF SG="YES" OR SG="NO" THEN RETURN 

940 561"" 

950 GOSUB 1220 

950 RETURN 

970 'SKIP3 

980 REM *x*xxxxixxxttsxt 

990 REM * PROCESS A LINE * 

1000 REM «xxx x xx x 4x4 

1010 LINEINPUT $41,8L 

1020 IF LEN(SL)=@ THEN RETURN 

1050 I12INSTR(SL,SV) : IF 1128 THEN MID$ 
(SL,I1)s" " : GOTO 1030 

1040 I1-ASC(LEFT$(8L,1))-48 

1050 IF I140 OR 1129 THEN SP=SP+SL : RET 

URN 

1060 IF SP<>"" THEN PRINT #2,5Р 

1070 SP=SL 

1080 RETURN 

1090 ‘SKIP3 

1100 REM Hiii itid d ie dt a dt de e de d e t 

1110 REM * REWIND CASSETTE + 

1120 REM Жжж ide d d e t 

1130 INPUT "Set recorder to REWIND; pres 
s ENTER"; 86 

1140 MOTOR ON 

1150 INPUT "Press ENTER when rewinding i 
s бопе"; 56 

1160 MOTOR OFF 

1170 RETURN 

1180 ‘SKIP3 

1190 REM ЖЖ ЕЕЕ кке кке кке 

1200 REM * DISPLAY ERROR MESSAGE * 

1210 REM ээккккккк +++ +++ ++ тж 

1220 PRINT TAB(S5); CHR$(27) ; "ps4 ERROR 
- RETRY 4" СНЕЗ (27); "а" 

1230 RETURN 
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Lets Go NERA 
But Watch Out 
For The Wumpus 


bs Vincent Lord 


umpus is a nice little creature 
who just loves to take you on 
a spelunking adventure 


through a maze of 36 caves all intercon- 
nected by means of three passageways 
from each cave to three more caves. You 
must crawl through mud, dust, water, 
and total darkness to travel from one 
cave to the next. Your senses will guide 
you and forewarn you. For instance, if 
you feela draft, then watch out, for you 
are one cave away from a bottomless pit 
which will swallow you up, and we will 
never hear from you again. If your hear- 
ing is good, then you'll recognize the 
high pitch chirping sound as coming 
from bats one cave away. The bats will 
become groupies with enough power to 
lift you up and transfer you to another 
section of the caves. Watch where you 
are going. It's best to avoid these pit- 
falls, but sometimes you just can't. 

The object, of course, is to meet our 
travel host on your terms. He is rather 
obnoxious in both smell (you can smell 
him up to two caves away) and behav- 
ior. Try not to stumble across his path, 
wake him up, or, when you think you 


The listing: 


Ғ 


have him іп sight, shoot at him апа 
miss. 

Now for the details. After typing 
RUN, wait for several minutes for the 
random number generator to fill the 
matrices (lines 9990—9996). You will 
see a notice of which cave you are in and 
the three caves joining. Keep track of 
this information. To move one cave 
away (to one of the three caves listed) 
simply type in the adjoining cave num- 
ber (1 to 36). You can move up to three 
caves by typing the cave numbers separ- 
ated by commas. When you think you 
have finally located our stinky friend, 
you may shoot at him by typing "S" and 





the cave number(s)—up to three away. If 
you get him, well, what can | say but 
your next adventure should be as a 
guide in the backwoods of New York 
City; however, if you miss, then it’s 
rough sailing. You may never find your- 
self as the wumpus carries you through 
the caves upsetting all the creatures liv- 
ing there and causing them to move on. 
The program was adapted for the M100 
from an original program run on the 
DECIO and created by my good friend 
and gamesman George Ellsworth in 
Attica, Indiana. My thanks to him for 
the basic program structure and permis- 
sion to modify his program. 


576 FORX=1T036:P=C1(X,@) 


500 CLEAR 300 

510 DIMC(36,3) ,С1 (36,3) ,R(36) ,B$(36) ,P$( 
36) ,N$(36) ,1(6) 

515 AR=5 

520 FOR X=1 TO36:FOR YsQTOS:READC(X,Y):N 
EXTY,X 

530 FOR X=1TO36 

540 GOSUB999Q1A=INT(37#DU) : IFR(A) #0 THEN 
R(A)=X ELSES40 

550 NEXTX 

560 FOR X=1T036:FORY=@T03 

570 CI(X,Y)SR(CQG Y) : NEXTY,X 


$78 FOR YsQTOS:C(P,Y) CI (X, Y) 

580 NEXTY,X 

590 FORX=1TO5 

608 505089990: BERCINT(S1*DU)) : ТЕВУ (В) >"" 
ТНЕМ600 

610 B#(B)="BATS” 

620 6081089998: РК (ІМТ (31 #00)) : IF P$(P)>" 
"ТНЕМ 620 

6380 P$(P)zZ"PIT":NEXT X 

640 605089990: Ws INT (7*DU) : ИЗ (RW) ) = " WHUMP 
us" 

650 FORXP=1 TO 40:GOSUB9990:L=R(INT(7#DU 
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) +30) 

660 IF P$(L)+B$(L)+W$(L)>""THEN 690 

670 GOSUB 1500 

680 IF P$+W$+B$=""THEN700 

690 NEXT ХР:6070500 

700 CLS:PRINT"you are in cave 8 "iL 

710 PRINT"You have passageways to:" 

720 FORX-1TOS:PRINTC(L,X) ; s NEXT X 

730 GOSUB 800:GOSUB 1500 

750 PRINTB$:PRINTP$:PRINT W$ 

760 60701000 

800 IF T=@ THEN RETURN 

810 PRINT"The WUMPUS is awake!!" 

820 FORX=1 TO 36:IF W(X)="WUMPUS" THEN 
W$(X)2"":G0T0 840 

830 NEXT X:STOP 

840 505089990: M2 INT(A4*DU) : X12C(X, MD : IF. X 
1=L THEN CLS:60T0880 

850 IF C(X1,M)<>X THEN X=C(X1,M) ELSE X= 


870 IF X<>L THEN 890 

875 CLS 

880 PRINT"THE Wumpus FOUND YOU AND":PRIN 

T"HAD YOU FOR LUNCH":60TO 9050 

890 W$(X)="WUMPUS":GOSUB999@: IFINT(11*DU 
)»5 THEN Т=@ 

900 IF AR>@ AND T=@ THEN PRINT"THE Wumpu 

s HAS GONE BACK TO SLEEP" 

905 IF AR>@ THEN PRINT"YOU HAVE"AR"ARROW 

S LEFT":RETURN 

910 PRINT"AND YOU'RE OUT OF ARROWS. THE 

Wumpus IS AWAKE, AND YOU ARE HELPLESS. 

IT‘S ONLY A MATTER OF TIME..." 

920 GOTO 880 

1000 H$=""sFORZ=1T06:1(Z)=Q:NEXTZ: 78: СТ 

=0 

1010 РКІМТ "РЕ ОТ YOUR STRATEGY:" 

1020 AS=INKEY$: IF А%-""ТНЕМ GOTO 1020 
1050 IF А$<СНА$ (29) THEN PRINTA$; 

1040 IF А%-"5" AND GT=@ THEN GT=2:GOTO 1 

020 

1050 IF А%-"М" AND 6750 THEN GT=1:GOTO 1 

020 

1070 IF A$-CHR$(13) THEN 1128 

1080 IF ASC(A$)>47 AND А5С(А%)<58 THEN 1 
110 

1090 IF А5С(А%)-52 OR ASC(A$)244 THEN IF 
H$>"" THEN 1120 ELSE 1020 

1100 PRINT"BAD INPUT--TRY AGAIN":PRINT" 
": GOTO 1000 

1110 H$=H$+A$: IF GT=0 THEN GT=1 

1115 GOTO 1020 

1120 2=2+1:1(2) VAL(H$) :H$z"": IF 7<>5 AN 

D A$42CHR$(13) THEN 1020 

1200 IF 1(1)=777 THEN 2000 

1205 ON GT GOTO 12190,1350 

1210 FORX=1TO6:IFI(X)=@8 THEN 700 

1220 FOR C=1TO3:IF C(L,C)=1(X) THEN L=I( 

X):GOSUB 1250:60T01240 

1230 NEXTC:CLS 
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1235 PRINT"YOU'RE LOST! YOU CAN'T GET": 
PRINT"THERE FROM HERE. NOW YOU'RE":PRIN 
T"WANDERING THRU CAVES: ":60T01500 

1240 NEXT X 

1250 ТЕ W$(L)="WUMPUS” THEN CLS:PRINT"YO 
U FOUND THE Wumpus AND HE":PRINT"ATE YOU 
FOR BREAKFAST!":80T0 9080 

1260 IF P$(L)="PIT" THEN CLS:PRINT"YOU Е 
ELL INTO A BOTTOMLESS PIT!":PRINT" BYE.. 
."1:60T0 9000 

1270 IF BS(L)<>"BATS"THEN RETURN 

1280 CLS:PRINT" A GIANT BAT HAS YOU ";:P 
RINT" IN HIS GRASP! "y 

1295 B$(L)="" 

1300 605089990: В=ІМТ (37*р0) :ІЕ B$(B)="BA 
TS" THEN 1300 ELSE B$(B)="BATS” 

1305 GOSUB999Q:L=INT(37*DU): IF B$(L)s"B 
ATS" THEN 1305 

1310 PRINT"HE DROPPED YOU IN CAVE"L; 
1315 FOR 2-1 TO 1000:МЕХТ J 

1320 G0SUB1250:60T0700 

1350 LA=L:AR=AR-1:T=1 

1360 FORXs1TO&:IF 1(Х) 20 THEN 1370 ELSE 
CLS 

1365 PRINT"YOU MISSED НІМ": 5070700 

1370 IF X45 THEN IF I(X)51(X*2) THEN CLS 
:PRINT"ARROW DAMAGED BY FULL REVERSE":PR 
INT"AT CAVE #"I(X+1)"! DEVICE NOW BACK": 
PRINT"TRACKING!  LOOKOUT... ":PRINT:LAsL: 
60701415 

1380 FOR С=1Т03:1Е C(LA,C)=1(X) THEN (Ак 
1(Х):60701420 

1390 NEXTC:CLS:PRINT"YOU PLOTTED AN IMPO 
SSIBLE" 

1395 PRINT"ROUTE WITH YOUR ARROW. IT IS" 
1400 PRINT"NOW RUNNING AMUCK THRU CAVES" 
1405 FORC=X TO 5: GOSUB9990:X=INT(4#DU): 
LA=C(LA,X):PRINT LA; 

1408 FOR Q=1 TO 800:МЕХТ 0 

1410 ТЕ W$(LA)="WUMPUS" THEN CLS:PRINT"T 
HE WUMPUS WAS IN CAVE"LA,"YOU GOT HIM! ": 
GOTO 8000 

1413 IF LA=L THEN CLS ELSE 1420 

1415 PRINT"YOUR ARROW RETURNED TO YOUR": 
PRINT"CAVE AND SHOT YOU! (OOPS...) ":GOTO 
9000 

1420 NEXT C:60T01265 

1430 IF W$(LA)="WUMPUS" THEN 1410 

1435 IF LA=L THEN 1413 

1440 NEXT X:STOP 

1500 P$="":B$=""sWwse"" 

1505 IF ARsQ THEN 910 

1510 FOR Xs1T03 

1520 IF B$(C(L,X)) £"BATS"THENB$z"I HEAR 

BATS" 

1530 IF P$(C(L,X))="PIT"THENP$="I FEEL A 
DRAFT" 

1540 IF W$(C(L,X))="WUMPUS" THEN W$s"I S 

MELL THE WUMPUS" 

1550 Y=C(L,X):FOR 7511703 


1580 
MELL 
1570 
1580 
1600 
1610 
1520 
1630 
1648 
2000 
2010 


IF WS(C(Y,Z))="WUMPUS" THEN W$s"I S 
THE WUMPUS" 

NEXT Z,X 

RETURN 

FOR Xs1T05 
G0SUB9990:L-C(L,INT(4*DU)) sPRINT L; 
FOR В=1 TO 1500:МЕХТ B:805UB 1250 
NEXT X 

6070700 

CLS:CK=0:P0=@:FORX=1 TO 36 
PRINT@PO,CHR$(138) ; X; К(Х); :РОЕРО+В: 


CK=CK+R(X) 


2020 
2023 
2025 
2030 
2035 
2040 
2050 
2060 
2065 
2070 
2080 
5000 
15,5, 
9,8,1 
5010 
445,4 


NEXTX: PRINTCK:CKsQ 
FORXs1TO35:FORYsÜTO3: CKsCK*C (X, Y) 
МЕХТУ, Х: PRINTCK, 56644 

IF INKEY$="" THEN 2930 

Y=13Z=12 

CLS:FORXsY TO Z 
PRINTX;B$ OO Р(Х) 8$ 00 

NEXTX 

IF INKEY$z"" THEN 2065 
157%12:Ү-Ү%12:1Ғ 1236 THEN 700 
GOTO 2040 

DATA 1,2,5:9,2,1,1 
5:4,17,6464,5,7,1,7 
,10 

DATA 10,9,23,11,11,10,2,12,12,11,25 
1112,3,14,14,152,27,18,19, 14, 4,148, 15 


bod dia 
‚8,6,1 


,15,29,17,17,16,5,18 


5040 
2,214 


DATA 18,17,19,7,19,30,18,20,20,19,3 
21,20,8,22,22,21,33,23,23,22,10,24, 


24,23,34,25,25,24,12,26 


5068 


DATA 26,25,35,27,27,26,14,28,28,27, 


56,29,29,28,16,50,50,29,31,19,31,50,32,3 


5,22, 
5080 
28,31 
8000 
8010 
8900 
2000 
9010 
9020 
9025 
9030 
9035 
9040 
9050 
TO 1 
9080 
Q:NEX 
9090 
9095 
9990 
9991 
9992 
9993 
9994 
9995 
9996 


31,20,33,33,32,22,34 
DATA 34,33,24,35,35,34,26,36,36,35, 


PRINT"CONGRADULATIONS" 
FOR Р=1 TO 1000: МЕХТ Р 
MENU 

REM PIT OR 
PS=PS+1 

ON PS GOTO 9825,9030,9035 
PRINT"THAT'S ONE... ": БОТО 9040 
РКІМТ"ТНАТ”5 TWO...":60T0 9040 
PRINT"THAT'S THREE!!!":G0TO0 9050 
FOR Х=1 TO 1000: МЕХТХ:6070650 
PRINT"BEINB EATEN IS FINAL":FOR X=1 
200: МЕХТХ 

CLS:PRINT"GAME OVER";:FOR Xs1TO 120 
TX 
PRINT" 
MENU 
REM random number generator 


SHOT SELF 


"SPRINT" " 


SEC=VAL(RIGHTS(TIME$,2) ) 
FOR 1=1Т05ЕС STEP 9 
DUMMY=RND (1) 

NEXT I 

IF DUMMY<1/37 THEN 9990 
RETURN 


/ WORKIO- 


nt 










L2 е LONGER LENGTHS 
DATA TRAC C-06, C-12, C-24 


CASSETTE 


From the leading supplier of Computer | сТОРАСЕ cappy 


Grade Cassettes, new, longer length C- 12's 
(6 minutes per side) provide the extra few 
feet needed for some 16K programs. 


c Premium 5-screw shell with leader 


— BASF tape 
oS 









Holds 12 ^ 
cassettes w/o boxes 
" ; Includes edge labels 
Internationally acclaimed. and index card 


Thousands of repeat users. 


<=> Error Free е Money back Guarantee 
500 C-12’s—38¢ each. wiareis 


TRACTOR FEED 
+ DIE-CUT BLANK 
CASSETTE LABELS 


Shipping 517.:500 add 4c 


500 Boxes 13¢ ea. е shipping $10./500 


BASF Qualimetric Flexi-Disc—Lifetime Warranty. E 
| 514" Single Side. Double Density, Soft-Sectored. i 


€ et MICRO CASSETTES in convenient short lengths. 
A МС-10 | Same superior tape in premium shell 
oe МС-20 | WITH LEADERS. Supplied complete with 
г MC-30 | box (fits Epson 8 Sharp micro drives). 
<< сан: 213/700-0330 * "tons энемемт Sp 
ORDER [MAIL TO: YORK IO" Comouterware 
NOW ..../ 9525 Vassar Ave. РЗ, Chatsworth, СА 91311 


о нн шш ша w ше mm ORDER FORM m mm um шз ша = ша шш 


2 DOZEN 














1 DOZEN 





Each std. cassette 























































| | со С 700 Cj 1390 — [ | inetudes two YORK 10 
" | | labels only, Boxes are 
5 sold separately. We i 
prefer to ship by UPS i 
- as being the fastest and 
i Blank labels 300/100 [) 2000/1000 | | satest If you need ship- 
| Storage Caddy @ $2 95 ea Qty = [О] ment by Parcel Post, ff 
Flexi-Disc 7) 2695/10 7) 12000/50 Id Check here Г1 
|| MICRO CASS. 1 DOZEN 2 DO | | NOTE: Additional % 
- charges outside 48 1 
q Continental States 
Shipments to AK. HI, 
i and USA possessions 
90 by Priority Mail 
| Сам residents add sales (ах Canada & Mexico— i 
SHIPPING/HANDLING Any quantity (except 500 special) Airmail; 
fi Outside 48 Continental States— Additional $1 per caddy; All others— Sea Mail i 
per doz. cassettes; per doz. boxes; per 10 discs 
[| TOTAL || 
Cneck or МО Charge to 
| сосове Credit Card: Г) VISA 27 MASTERCARD #P3 i 
Г] PLEASE SEND QUANTITY DISCOUNTS | 
" Card No. =. —— а >) Nimm % 
Bü Name — әк E ыйды — | 
Н Address: . ene теке ee ——— == 1 
i City ___ AI c MIHI > а ene " 
Signature —— == Рһопе --- J 
І Computer таке & model __________ Disk? (y/n) ——— 


E mm mm шш шш шш Gum шш ни шы иш ыш шш иш шш на нн шн 
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Prevent damage to your cassette plugs with this... 


Homemade PoCo 
To CCR Cable 


By William T. Stauffer 


adio Shack has done an out- 
ЮКО in the design of the 

PoCo and its peripherals. The 
System Briefcase has been designed in 
such a manner as to permit operation of 
the system (PoCo and cassette tape 
recorder) without removing them from 
the briefcase; however, there is one 
drawback— when the cassette recorder 
cable is plugged into the cassette record- 
er, the plugs extend to the outside of the 
briefcase and could cause damage to the 
case if it is closed with the cassette 
recorder connected. The obvious solu- 
tion to this problem is the use of low 
profile plugs which, to my knowledge, 
are not available. Since the required 
plugs are not readily available, an alter- 
native solution is to make them—in 
fact, why not combine the three plugs 
into one unit—a "tri-plug'? 

Following this line of thinking, and 
with a close study of the Radio Shack 
catalog, | devised and built a new PoCo- 
to-CCR cable. The details of the fabri- 
cation of the cable, with referenced 
Radio Shack catalog part numbers, 
follow: 

1) Prepare two М” miniature phone 
plugs (274-286) and one Уза” submini 
phone plug (274-289) by removing the 
cover, bending off the ground lug (the 
long lug connected to the threaded por- 
tion of the plug), and cutting off the 
center lug to leave approximately 1⁄4”. 

2) Insert the miniature plugs into 
the "EAR" and “AUX” jacks of the 
CCR-81 and the submini plug into the 
"REM" jack. 

3) Cut a piece of printed circuit 
board (276-1586) 2" x 3⁄4”, Figure 1. 

4) Scribea center line on the printed 
circuit board. 
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Figure 1. 


Printed Circuit Board Layout 





5) Locate hole centers correspond- 
ing to the centers ofthe ““EAR,”“AUX,” 
and "REM “jacks of the CCR-81 on the 
center line. These dimensions are 15” 
between the “REM” and “AUX” and 
1/16” between the “AUX” and “EAR.” 

NOTE: These dimensions are for the 
Radio Shack CCR-81. If you are using 
the cable with another type of cassette 
tape recorder such as the Radio Shack 
CTR-80, check the hole centers and drill 
your board accordingly. 

6) Drill %” holes for the “AUX” and 
"EAR" plugs and М” hole for the 
“КЕМ "jack. An easier way to do this is 
to drill pilot holes on each of the centers 
and ream the holes for a snug fit on the 
plugs when they are inserted into their 
respective jacks. Don't worry too much 
if the fit is not exact, we'll take care of 
that when we connect the plugs. 

7) Cut the copper conductor of the 
printed circuit board midway between 
the"REM"and “AUX” plug holes. This 


may be accomplished by making two 
cuts approximately 1/16” apart with a 
sharp knife and peeling off the conduc- 
tor between the cuts. Make sure that the 
cut is complete and there is no conduc- 
tivity between the opposite ends of the 
board. 

8) Clean the copper side of the 
board and tin the entire surface. 

9) Place the printed circuit board 
over the plugs inserted into their jacks 
on Ше CCR-81 and with the clad side of 
the board out. 

10) Carefully solder the printed cir- 
cuit board to the plugs. Use a soldering 
gun or high wattage soldering iron and 
do not apply heat any longer than 
necessary to preclude melting of the 
cassette tape recorder case. 

11) Cut three lengths of miniature 
shielded cable (278-752) 17" long. 

12) Prepare one end of each of these 
cables by stripping the cover 3$" from 
the end, pull out and twist the shield, 
and strip the center conductor И” inch 
from the end. 

13) Tin the shield and the center 
conductor of each cable. 

14) Connect and solder the center 
conductor of each cable to the center 
connection of the plugs. This is easily 
accomplished by placing the tinned ca- 
ble center conductor under the short 
lug, bending the lug over the wire, and 
then soldering the connection. During 
this step be very careful not to "bridge" 
the plug center connection to the out- 
side connection. 

15) Dress the “EAR” cable along the 
printed circuit board away from the 
"REM" plug and solder the cable shield 
to the printed circuit board adjacent to 
the plug. 


16) Repeat step 15 for the “AUX” 
and “КЕМ” cables. 

17) When you are finished with step 
16, you should have all three cables 
fanned out from the “EAR” end of your 
board, the shields of the "EAR" and 
“AUX” cables should be soldered to the 
same area on the printed circuit board, 
and the shield of the *REM "soldered to 
the isolated end of the printed circuit 
board. At this time, mark each cable to 
facilitate connector hook-up, steps 24 
through 28. 

18) Twist the cables together. This is 
most easily accomplished by holding 
the “EAR” and “AUX” cables in each 
hand. Hold the cables high enough for 
the connectors and "REM" cable to 
clear the floor and then gently twist the 
two cables in opposite directions. After 
the "EAR" and “AUX” cables are to- 
gether, dress the “КЕМ” cable around 
them. 

19) Cut all of the cables to equal 
length. 

20) Strip the cover from each cable 
А" from the end, pull out and twist the 
shield, and strip the center conductor 
4" from the end. 

21) Tin the center conductors. Do 
not tin the shields at this time. 





22) Remove the cover from a 5-pin 
DIN Audio/ Video Plug (274-003). 

23) Insert the three cables through 
the plug cover. 

24) Referring to Figure 2, solder the 
center conductor of the "EAR" cable to 
pin 4 of the DIN plug, and the center 
conductor of the “AUX” cable to pin 5. 


© Ф 


FIGURE 2. 


5-PIN DIN PLUG REAR VIEW 





25) Twist the shields of the "EAR" 
and “AUX” cables together, tin them, 
cut them to appropriate length, and 
solder them to pin 2. 

26) Solder the center conductor of 
the “КЕМ” cable and tin it. 


Plot Against Your Competition! 
with QuickPlot® 


27) Twist the shield of the “REM” 
cable and tin it. 

28) Cut the “REM” cable shield to 
appropriate length and solder it to pin 1. 

29) Inspect your connections very 
carefully to assure that none of the con- 
nections are "shorted." 

30) Reassemble the DIN plug. 

When connecting the DIN plug as 
outlined in steps 24 through 28, it is 
preferable to insulate the terminals 
using a М” length of shrink tubing on 
pins 3, 4, and 5 and X" length on pin 1; 
however, if the “REM” shield is tinned 
adequately to provide enough "stiff- 
ness" to hold the shield away from the 
other connections, it is not necessary. 

The parts specified above are refer- 
enced to the Radio Shack catalog and 
its substitute parts may be used. As an 
example, you will use approximately 
4^ inches of shielded cable from a 30 
foot roll, leaving quite a bit left over! 

After you have finished this little pro- 
ject, you will have a new PoCo to 
cassette tape recorder cable which will 
allow you to leave the recorder attached 
while the system is in its briefcase. 

l hope you enjoy your PoCo and that 
this addition will give you additional 
enjoyment due to its added conve- 
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We've just given the CGP-115 Color 
Plotter business status. With Quick- 
Plot, your TRS-80 or IBM-PC can 
produce high quality line-, bar-, and 
pie-charts in vivid color. Simple data 
entry and flexible chart formatting 
makes QuickPlot and the CGP-115 
Color Plotter the logical choice for 
the professional who wants to plot 
his profits—not spend them. 









COMPANY XY2 - 1982 


MONTHLY SALES ANALYSIS 
























SALES (x 1000) 


















@EAST COAST 
BnID-WEST 





SCENTRAL 
BWEST COAST 











Now you have a friend in the software business. 














Complete QuickPlot Package Model 11/12/16........... $89 

Includes: Bar Chart, Pie Chart, Model 111/4 ............. $89 

and Line Graph. Data and chart Model100.............. $49 901 Embassy Square Blvd. 
formats save to disk for future ІВМ-РС/ХТ............. $89 Louisville, KY 40299 








(502) 491-6122 


Call or write to place your order or send for free 
information. 


plotting. 















TRS-80 and CGP-115 are registered trademarks of Tandy Corporation. PC and 
PC/XT are registered trademarks of IBM Corporation. 






PCM 33 


October 1983 





CREATE ‘LETTER PERFECT’ TEXT FILES WITH THIS 


P К 


| 


N Т 





FORMAT PROGRAM 


hortly after purchasing my 24K 
S M100 | realized that printing out 

text files was too awkward and 
cumbersome. I had to connect the M100 
up to a desktop computer, load the 
desktop’s communications software, 
transfer the file from one computer to 
another, load the desktop’s word pro- 
cessor, load the file into it and set the 
print parameters for printout... all this 
for only a two-page letter. The alterna- 
tive was to use the print routine in the 
M100 which allows you to set only line 
length, but not page length, double or 
triple spacing, and left margins. To 
print out an acceptable letter requires 
all of these. For this reason І decided to 
write my own print format program for 
the M100. 

First, І chose the things I wanted the 
program to handle: page size, number 
of printed lines, line length, line spacing 
and left margin. I wrote the program in 
BASIC, and when finished, it occupied 
just 6K of RAM storage, leaving more 
than enough RAM for other files. 

The program is comprised of two sec- 
tions. The first, lines 10—2780 and 
10000— 10600, deals with screen setup 
and input of the text’s filename along 


By Gary A. Sissala 


with any changes to the print format 
parameters. The second, lines 3000— 
9140, handles the actual printing of the 
file. 

When running the program, you en- 
ter the first section, where the parame- 
ters, commands, and the input line mes- 
sage are displayed on the LCD screen. 
You then have several options. You can 
change any of the print format parame- 
ters, enter the filename, proceed to print 
or end the session. 

The print format parameters are page 
length (PL), printed lines per page (LP), 
line spaces (LS), line length (LL), and 
left margin (LM). To change a print 
parameter just type in the two letter 
code followed by the new parameter. 
After you press ENTER, the new para- 
meter will appear on the display. Note 
that all commands and filenames must 
be in capital letters. 

To input the filename type Control F 
and the input line will change to "Enter 
Command." To exit the program from 
the display type Control E. 

To print the text file type Control P. 
The message "Printing" will appear 
above the input line and, after a mo- 
ment's delay, the program will begin 


printing the file. Note that you must 
have a filename entered on line five of 
the display before printing can com- 
mence. 

After Control F has been entered, the 
program advances to the second section 
of the program, which handles the actual 
printing of the text file. This section 
inputs one character at a time building 
the line to be printed and checks for 
carriage returns, tabs, and EOF which 
activate various routines in this section. 

Special features include suppression 
of leading spaces, allowance for tabu- 
lated columns and advancement to the 
top of the next page. An error trapping 
routing is used to catch bad filenames. 
This routine will allow you to reenter 
the filename if an error occurs. Finally, 
when the program is through printing 
your text file, the M100 will beep once 
and the "Printing" message will dis- 
appear. 

This program will expand the utility 
of the MIOO for students and others 
who wish formated text printouts and 
do not have access to a desktop compu- 
ter, or those who need to print out small 
text files and wish to avoid the incon- 
venience of hooking up to their desktop. 





The listing: 140 LPX-58:' 
18 CLS 150 1567451: 
20 HI RIE RRR # + ++ ++ ++ ++ ++ 160 11700:” 
30 | PRINT FORMAT PROGRAM FOR М100 170 1М7=@:' 
AQ ' BY GARY A. SISSALA 200 

50 ' 2732 JERSEY AVE SO 218 ' 

4. ST. LOUIS PARK,MN 55426 220 

70 ^ (612) 922-4716 230 

ва“ JUNE 1983 


90 '+++++ +++ ЕЕ ER ERE Е ЗЕ ЗЕ EER ЗЕ ЗЕ ЗЕЕ ЗЕ EEE EEE 


100 экккккккекк кекке кек кекке кек 
118“ DEFAULT VALUES 
120 'k***X*4**X4XXXXXXEXKXXXXEÀXXXXXEXEXXXYXY 


130 PLZ=66:' PAGE LENGTH 
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LINE PRINTED PER PAGE 
LINE SPACES 

LINE LENGTH 

LEFT MARGIN LENGTH 


CC EICXEEXOEGEIIEXSEIEIEEIEEE EEUU UE EE 


SCREEN SETUP 
GETTER EE IUE UAR 


PLS="PL"+MID$(STRS(PL%) 2,5) +" "1LP$ 


="LP"+MIDS(STRE(LPZ) ,2,5) +" "1 


240 LL$z"LL"*MIDS$(STRS(ILL2),2,85) +" "1L8$ 
="LS"+MID$S(STRS(LSZ) ,2,5) +" "1 


250 LM$z"LM"«MIDS(STRS(LMYI),2,5)*" "i 


260 PRINT@1@,"PRINT FORMAT PROGRAM"; 


278 PRINT@40,"(PL1-66) ------- ";PRINT@6@, 


"(LP1-66) ------- "1 
280 PRINTé80, " (LL1-80) ------- " PRINT@100 
,"(L51-3)-------- ^j 

290 PRINT@120,"(LMQ-20) ------- " PRINT@14 


8,"(CTRL-P) TO PRINT": 

300 PRINT@16@,"FILENAME (CTRL-F) >-~": 
310 PRINT@212,"(CTRL-E) TO EXIT 

320 PRINT854,PL$:PRINT874,LP$: 

330 PRINT@94,LL$:PRINT@114,LS$: 

340 PRINT@134,LM$: 


350 PRINT@280,"ENTER СОММАМр>------- E 
400 “екккекккккекккен кекке кекке кке 
410 ' SET UP ARRAY 


420 'k**xkXXXXXEXEIXTXEXEXEEXEGOE ++ +++ +++ 
430 FOR TAZ=2 TO 6 

440 READ CCS${TAX) 

450 NEXT TAZ 

460 RESTORE: GOTO 1000 

500 DATA "рі! А шер! А ар А "L" " ии" 

1000 '*4kx***k4xY*4y XXX кекке +++ +++ +++ 
1010 ' PROCESSING ANCHOR 

1020  ккккккке кек кек кек кекке кекке 
1050 GOSUB 10000 

2000 окэккноккккекк кке +++ ++} ек ыы 
2010 ' COMMAND CHECK 

2020 кекке ек кке кек кекке 
2050 PRINT@268,5PACE$(15); 

2040 FOR AP%=2 TO 6 

2050 FLZz1 

2060 IF MID$(CL$,1,2)=CC#$(AP%Z) THEN Ғіл- 
AP 

2070 ON FLX GOTO 2080,2200,2300,2400,250 
0,2600 

2088 NEXT АРУ 

2090 РКІМТ8240," SYNTAX ERROR-PRESS ENT 
ER TO CONTINUE" 

2100 CL$="" 

2110 ES=INKEY$:IF E$z"" THEN GOTO 2118 
2120 IF E$=CHR$(13) THEN 6070 2130 ELSE 
GOTO 2118 

2150 PRINT@248,SPACE$(39) ; 

2140 PRINT@3Q1,SPACE#(15); 

21580 GOTO 1050 

2170 кккккккккек кекке к кекке HERE HERE 
2180 ' COMMAND PROCESSING 

2190  ээхзкек кек кке кек е ек к # + е +++ ++ 
2200 Т%-МІр%(С1%,5,2) 

2210 IF VAL(T$)<1 OR VAL(T$)>66 THEN GOT 
0 2090 

2220 PLZ*sVAL(T$) 

2230 PLS="PL"+MIDS(STRE(PLZ) 2,524" "à 
2240 PRINT654,PL$: 

2250 CL$="" 

2260 PRINT@3@1,SPACE$(10); 

2270 GOTO 1030 

2500 T$zMID$(CL$,3,2) 

2310 IF VAL(T$)<1 OR VAL(T$) 266 THEN GOT 
0 2090 

2520 LPZ=VAL(T$) 

2330 | Р8< "Р" +МТО05 (5ТК (РА) ,2,5)+" " 


2340 PRINT874,LP$: 

2550 CL$z"" 

2360 РКІМТЕ501,5РАСЕ%(10); 

2370 GOTO 1838 

2400 Т%-МІП%(С1%,5,2) 

2410 IF VAL(T$)<1 OR УА (7%) >80 THEN GOT 
0 2090 

2420 LLX=VAL(T$) 

2430 LL$z"LL"*MID$(STRS(LLX),2,5)*" " 
2448 PRINT@94,LL$: 

2450 CL$="" 

2460 РКІМТЕЗО! , ЅРАСЕ$ (10); 

2478 GOTO 1030 

2500 TS=MID$(CL$,3,1) 

2510 IF VAL(T$)<1 OR VAL(T$)>3 THEN GOTO 
2090 

2520 (5%-УА1(Т%) 

2530 LS$S"LS"+MIDS(STRF(LSZ%) ,2,5)+" "1 
2540 PRINT@114,L5$: 

2550 CL$z"" 

2560 PRINT@3@1,SPACE$(1@); 

2570 GOTO 1830 

2600 T$zMID$(CL$,3,2) 

2610 IF VAL(T$)<@ OR VAL(T#)>20 THEN GOT 
0 2090 

2620 LMX-VAL(T$) 

2630 LMS="LM"+MIDS(STRE(LMZ) ,2,5) +" "1 

2640 PRINT@134,LM$: 

2650 CL$="" 

2660 PRINT@301,SPACE$(10); 

2670 GOTO 1030 

2700 PRINT6280,"Enter Filename>------ "3 
2710 GOSUB 10000 

2720 FN$-CL$ 

2730 CL$="" 

2748 PRINT@301,SPACE$(15); 

2750 PRINT@18@,SPACE$(15); 

2760 PRINT@180,FNS; 

2778 PRINT@28@,"ENTER COMMAND >------- "à 

2788 GOTO 1838 

3000 "xxx EEEE EEEE EEE EEE EEE E IE I EGREGIE + + 

3010 ‘ZERO VARIABLES AND OPEN FILE 

5020 | HERR RHE ERE кк 

3050 ALZ=O: ТР): 1810: T220:B$z""1IS$z"" 

NL XQ: 

3040 ON ERROR GOTO 9000 

5050 ОРЕМ ЕМ FOR INPUT AS 1 

3060 PRINT@248,SPACE$(39); 

3870 РКІМТЕ240, "PRINTING"; 

3100 "xxxn ee e RIO RHEE к ы RHEE 

3110 ‘INPUT DATA CHARACTER AND CHECK 

3120 ' FOR EOF,TAB,ENTER,LEADING 

3130 ' SPACES AND LINE LENGTH 

3140 “зек кк кке кк кке # Ж EERE 

3158 ON ERROR GOTO 12000 

3200 IF NOT ЕОҒ(1) THEN IS$=INPUT$(1,1) 

ELSE GOTO 6380 

3210 IF IS$=CHR$(13) THEN GOTO 3500 

3228 IF IS$sCHR$(9) THEN TFXsTFX*(8-((AL 

4+TF%)MODB) ) 
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3230 IF ALZ=@ AND IS$=CHR$(32) THEN GOTO 
3200 

3240 B$zB$*IS$:ALZ-ALYX*1 

3250 IF (АЯ+ТЕХ) => (| 1 #+ 1) THEN GOTO 400 
0 ELSE GOTO 3200 

3588 ISS$zINPUT$(1,1) 

3510 IF ALZ=0 THEN LPRINT ELSE GOTO 4000 
3520 GOTO 6000 

4000  кэкккекккк XEXXEXXEXXEXERXEXXEXEXKXK 
4010 ' LINE LPRINT 

4020 '*x**x**X*XX*XXXXXXXEXXXXXEXEXEKEEXXK 
4058 IF LEN(B$)z0 THEN GOTO 6300 

4040 IF ALZ+TFZC=LL% THEN БОБОВ 4500 ELS 
E GOTO 4100 

4050 GOTO 5000 

4100 '***** FIND LAST SPACE IN B$ жен 
4118 5P%=0 

4120 FOR TXzLEN(B$) TO 1 STEP -1 

4138 SPZ-INSTR(TXZ,B$,CHR$(32)) 

4140 IF SP%=@ THEN NEXT Т) ELSE TZs8 
4150 IF SP%=@ THEN GOSUB 4500 ELSE GOSUB 
4708 

4160 IF LEN(B$)=@ THEN GOTO 2000 ELSE 60 
TO 5000 

4500 “жж NO SPACE Xxx xoie eee 

4510 IF LEN(B$)>LL% THEN GOTO 4560 

4520 LPRINT SPACES$(LMX)*B$ 

4530 B$z"":ALXzQ:TFZ-0: 

4540 RETURN 

4560 LPRINT SPACE$(LMX)*MIDS(BS$,1, (LLZ-T 

РА) ) 

4570 B$zMID$(B$,((LLZ-TFZ) +1), (ЕМ (В) -( 

LLZ-TF4))) 

4580 ALZ=LEN(B$) 

4590 RETURN 

4700 “жж FOUND SPACE жекке кк 

4710 LPRINT SPACES$(LMX) +MID$(BS,1, (SP%-1 
)) 

4720 IF SPZ<(LLZ+1) THEN В$%=М10$ (В$, (5Р7 
+1), (LEN(B$)-SP%)) ELSE B$z"" 

4750 ALZ=LEN(B$) 

4740 RETURN 

5000 '***k*XkXEXXXEXEXEEREKETEXEXEEEXOGGEXK 

5010 ' CHECK FOR TABS IN NEW BS 

5020 кккккккеккке кекке кекке кекке + +++ +++ 

5100 Т7=0: TFL=OsPT%=8: 

5110 TASINSTR((PT%+1) , BS, СНА$ (9) ) 

5120 IF TZ=@ THEN GOTO 8000 

5150 TFASTFZ*(GB-COALZ*TFZ) MDDB) ) sPTZSTA: 

5140 GOTO 5110 

5000 '*****XX*kEXXXXXEXXKXXXFXXXXXXX44 

6010 ‘EOF CHECK WHICH EITHER BRANCHES 

5020 ' BACK TO INPUT DATA CHARACTER 

6038 ' OR PRINTS CONTENTS OF B$. ІТ 

6040 ' ALSO PERFORMS LINE SPACING AND 

6050 ' PAGE BREAKS. 

5060 '**t**x**kx*XYXEXKEXXXEXEXEXEEEXKEXKXEKE 

5100 '***** LINE SPACING xxx xxu 

6118 NLZ3NLZ*1 

56120 IF 157=1 THEN GOTO 65208 
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6150 FOR Т#51 TO (157-1) 

6148 LPRINT 

5150 NLZzNLAX*1 

6160 NEXT TZ 

5200 '***** PAGE BREAK жекке кекке. 
6218 IF NLZ<LP% THEN GOTO 6308 

8220 FOR T%=1 TO (PLZX-NLAX) 

6230 LPRINT 

5240 NEXT TX 

5250 Мі%-0 

6300 '***** CHECK FOR EDF ++++++ +++ ++ ++ 
6310 IF NOT EOF(1) THEN GOTO 3200 

6320 IF LEN(B$)>@ THEN LPRINT SPACES$(LM% 
)tB$ ELSE GOTO 6540 

6330 NLAsNLZ*1:B$z""; 

6340 IF NLZ=@ THEN GOTO 6380 

6350 FOR TZs1 TO (PL%-NL%) 

6580 LPRINT 

6370 NEXT TX 

5580 PRINT@240,SPACE$ (39) 

5590 BEEP:CLOSE:G0TO 1030 

9000 “ккккккке ++ ++ ++ ++ +++ КЕК 
9010” FILENAME ERROR 

9020 '++++++ +++ +++ ++ +++ ее к +++ +++ +++ ++ 
9030 IF ERR=52 OR ERR=53 ОК ERR=55 THEN 
9100 

9040 PRINT "ERROR ";ERR;" AT LINE NUMBE 
К "ЕНІ: 

9050 END 

9100 PRINT824Q0,"Invalid filename press Е 
NTER to contine"; 

9110 ES=INKEY$:IF E$z"" THEN GOTO 9110 
9120 IF Е%-СНК%(13) THEN GOTO 9130 ELSE 
GOTO 9110 

9130 PRINT@240,SPACE$(39); 

9140 RESUME 2700 

18000 КЕЕ ЕЕЕ кекке xx 
10010 ' INPUT COMMAND 

18015 “кекке 3Á44 4X ## ## % + # # # + ++ # ++ G 
10020 СС7=0 

10050 IC$=INKEY$:IF IC$z"" THEN 10030 
10040 IF ICS$-CHR$(29) OR IC$=CHR$(8) THE 
М GOTO 10500 

10045 IF IC$=CHR$(5) THEN GOTO 10200 
10050 IF IC$=CHR$(13) THEN RETURN 

10020 IF ICS=CHR$(6) THEN GOTO 2700 
10070 IF IC$=CHR$(146) THEN GOTO 5000 
10080 СС7=СС7+1 

10090 PRINTG(S0U0*CCX),IC$; 

10100 CL$-CL$*IC$ 

10110 IF CC%=13 THEN RETURN 

10128 GOTO 10030 

10500 '***** BACKSPACE жекке dede 
10510 IF СС7<=0 THEN GOTO 10050 

10520 PRINTGé(300*CCZ)," "; 

10550 CCXsCCX-1:CL$zMID$(CL$,1,CC2) 
18540 GOTO 10030 

10800 CLS:END 

12008 PRINT ERL 

12010 PRINT ERR:END 
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Scribe Useful Word Processor 
With Unexpected Power 


Scribe is the first word processing 
package developed for the Model 100. 
Its purpose is to allow the user to pro- 
duce a file and then utilize the full capa- 
bilities of the available printer. In my 
job as Newsletter Editor for the Cincin- 
nati TRS-80 Users Group (CINTUG), 1 
have experimented with all of the word 
processors written for the Models I, 
1/12/16, and 111/4. Each of the pack- 
ages has features that fit a users specific 
need and printer, Chattanooga Systems 
Associates has chosen to model their 
program so that it is compatible with 
the Newscript word processing pack- 
age. This particular system follows the 
Edgar word processor developed by 
IBM. With this compatibility, Scribe 
possesses considerable more power than 


might be expected from a Model 100 
word processor. Text can be prepared 
ona Model 100, and then transmitted to 
a Model I/111/4, to be merged with the 
mailing list for automatic addressing. 

Scribe, like Newscript, supports a 
variety of printers. It allows you to add 
imbedded control codes so that double 
wide, 10 cpi, and 16.7 cpi characters сап 
be included in a single printout. The 
program itself is a short BASIC program 
some 47 lines in length, which requires 
only 2.2K of memory. This leaves a little 
more than 3K for the text file in an 8K 
machine. The original version that you 
receive is set up for use with three prin- 
ters, the Epson, Gemini 10/15 and RS 
DW-II (which is the current standard 
for all Radio Shack Printers). Informa- 
tion is included so that you can modify 
the program for a different printer. 

In order to use Scribe, you first pre- 
pare your text usingthe TEXT program 
in the Model 100. This text preparation 
should include the formatting described 
in the Scribe manual. You then return 


to BASIC and load up either from tape or 
from RAM. Scribe then asks a series of 
questions. First, it asks where the text 
fileisto be found, RAM or CAS. It then 
asks the name of the file. The third ques- 
поп has to do with format... 10 cpi, 12 
cpi, or 17 cpi. Then it asks for the print 
quality that you want (providing your 
printer supports these modes). Next it 
asks for the desired line spacing. Auto- 
matic page numbering is the hext ques- 
tion to be answered along with the page 
where numbering is to start. Finally, 
you are asked if it is to stop at the end of 
each page so that a new sheet of paper 
can be inserted. This feature is useful if 
your printer allows you to friction-feed 
single sheets. 

The best way to understand the use of 
Scribe is to type in the sample letter 
given in the manual. After doing this, I 
had no problems using Scribe with both 
the EPSON and GEMINI printers. It 
also worked well with my Centronics 
737/ LPIV, with the exception that the 
line feed command did not work with- 
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Chattanooga Choo Choo Software 









RECREATION 


Prickly-Pear Software 10% OFF 
Viking - (24K) simulation game 
cassette 519:95 $17.95 
Bowling League Secretary (24K) 

$3495 531.45 


Football - Armchair Quarterback Strategy 
(16K) cassette .$19-95" $17.95 


Scribe-Word Processor 
Formats & prints from text files. 
(8K) cassette $24.95 


ДУННЕННЕНЕНЕНННЫ Ж ЕННННЕНННННЕННЕНННН 















а A BUSINESS 
Your One Stop Station 4 Skyline Software 
T For Computer Programs } PortaCalc - Electronic spreadsheet 
ы” with 15 column by 26 row workspace! 
ЖС Тгаск 29 Full use of built in function keys. 


Silverware - 4 games on cassette (24K) $44.95 ea. 
Blockade Frankenstein Adventure Романи proni 
i Alexis Advent 
и" (24K) E74 Бағы being released soon at $44.95 ea. 
*PortaFolio 


*interactive with PortaCalc data files 


Portable Computer Support Group 
Business Pak+ includes: У/те+, Graph, 
Expns+, Telex+, Put+, Sort+ 
& a 120-page manual 
6 cassettes (8K) $119.95 

e 


Personal checks welcome. 

Please add $2.00 for shipping. 
Tennessee residents add 6.25% sales tax. 
C.O.D. orders add $2.00. 

Send for free complete catalog and descriptions! 


(615) 875-8656 € Р.О. Вох 15892 € Chattanooga, TN 37415 


Hii 


(24K) cassette $69.95 


*PortaStat - statistical package 
*PortaMax - linear programming 
*PortaFin - /оал & investment package 
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The Rackseller 








ALABAMA 
Florence Anderson News Co. 
Madison Madison Books 
ALASKA 
Fairbanks Electronic World 
Fairbanks News Agency 
Kotzebue Arctic Bookstore, Inc. 
ARIZONA 
Phoenix Road Runner 
Computer Pro 
Scottsdale Softwareland Corp. 
Tucson Anderson News Co. 
CALIFORNIA 
Atwater Electro Brain 
Citrus Heights Software Plus 
Half Moon Bay > Strawflower Electronics 
North 
Hollywood Levity Distributors 
Sunnyvale Computer Literacy 
CONNECTICUT 
Hartford The Aetna Life Club Store 
DELAWARE 
Wilmington Normar Inc.—The Smoke Shop 
FLORIDA 
Ft. Lauderdale Software Connection 
Miami Newsrack 
Panama City Computer Systems Group 
Pensacola Anderson News Co. 
Tallahassee Anderson News Co. 
Winter Park Independent Computer Systems 
GEORGIA 
Atlanta Guild News Agency 
Columbus Muscogee News Co. 
Trenton The Phone Line 
ILLINOIS 
Chicago Kroch's & Brentano's 
Jackson Street 
Kroch's & Brentano's 
Wabash Ave. 
Chicago Prairie News Agency 
Oakbrook Kroch's & Brentano's 
INDIANA 
Elkhart Elkhart City News & Book Store 


Indianapolis A— Computer Store 

Madison Arco Office Supplies 

Scottsburg Radio Shack of Scottsburg 
KANSAS 

Topeka Town Criers of Topeka 

Palmer News Inc. 
Wichita Amateur Radio Equipment Co. 
Lloyd's Radio 

KENTUCKY 

Benton Anderson Electronics 

Pikeville Gus-Stan Enterprises 
LOUISIANA 

Slidell Radio Shack 
MAINE 

South Portland Portland News Co. 
MASSACHUSETTS 

Littleton Computer Plus 

Marlboro Radio Shack 

Woburn Microcon Software Centers 
MICHIGAN 

Novi MI Software Dist., Inc. 
NEBRASKA 

Lincoln Hobby Town 
NEVADA 

Las Vegas Hurley Electronics 
NEW HAMPSHIRE 

Manchester Brookwrights 

Petersborough Radio Shack 

West Lebanon  Verham News Corp. 
NEW JERSEY 

Hackensack Total Circulation Service 

Midland Park Software City 

Pennsville Dave's Electronic Radio Shack 
NEW MEXICO 

Albuquerque Page One Newsstand 
NEW YORK 

Johnson City Unicorn Electronics 

New York City — Usercom System, Inc. 
NORTH DAKOTA 

Fargo Computer Associates 
OHIO 

Cincinnati Softwarehouse 

Lakewood Lakewood International News 


Toledo Leo's 
Reitz Electronics, Inc. 
OREGON 
Eugene Libra Books, Inc. 
Medford John's News Stand 
Portland 80-Plus 
Roseburg Rainy Day Bookshop 
PENNSYLVANIA 
Pleasant Hills Pittsburgh Computer Store 
SOUTH CAROLINA 
Greenville Palmetto News Co. 
North 
Charleston Тһе Green Dragon 
TENNESSEE 
Chattanooga Anderson News Co. 
Knoxville Anderson News Co. 
Memphis Computer Center 
Nashville Mosko's Book Store 
Smyrna Delker Electronics, Inc. 
TEXAS 
Austin Austin News Agency 
Capitol Micro Computers 
Software & Things 
Dallas Micro Concepts, Inc. 
Elgin Homing Pigeon 
Ft. Worth A & A International 
RFI Electronics 
Irving Software Access 
WASHINGTON 
Blaine Compulit Dist. 
Richland C & J Electronics Computer Center 
Seattle Adams News 
WISCONSIN 
Appleton Badger Periodicals 
Janesville Book World 
Portage Sam's Electronics 
CANADA: 
ALBERTA 
Calgary Rainbow Software Services 
Edmonton Kelly's Software Distributors 
NOVA SCOTIA 
Halifax Atlantic News 
ONTARIO 
Hamilton Galls Book World 








out modifying the program. I was able 
to modify the program to work with the 
Centronics 737 by using the informa- 
tion supplied in the manual. 1 also 
uploaded the file to my Model I, and 
printed it out using Newscript with no 
problems. 

My major complaint with Scribe is 
the manual supplied. It was printed on 
folded 7/4 by 11 paper, and the copy had 
been reduced approximately 40% in 
reproduction. This size is too small to 
properly file in a note book. The re- 
duced type size also made it difficult to 
read, and | made a number of errors in 
typing the sample letter. Other than the 
quality of the documentation reproduc- 
tion, | found no major faults with the 
program. It should prove useful for 
those occasions when a text file cannot 
be uploaded to a larger machine. 


(Chattanooga Systems Associates, 
P.O. Box 22261, Chattanooga, TN 
27421, $24.95) 

—Ed Fairman 


(continued from page 5) 


the Portable Computer are making good 
progress. So, effective this month, there 
is a special edition of PCM available in 
Australia, New Zealand and the South 
Seas. 


And, in closing, let me call your atten- 
tion to a computer show — one of four 
— that we will be sponsoring October 
14-16 in Fort Worth, Texas. The show, 
RAINBOW fest, is essentially aimed at 
the TRS-80 Color Computer, but last 
year's first show in Chicago saw a cou- 
ple of Portable Computers around. 1 
suspect there will be more this year. 

Too, our keynote speaker at a Satur- 
day morning breakfast is Mark Yama- 
gata, who has just been appointed Direc- 
tor of Computer Merchandising for 
Personal Computer Products. That area 
of responsibility includes the Portable 
Computer as well as the Color Compu- 
ter. It will be one of Mark's first public 


appearances in his new role. 

Too, RAIN BOWfest might bea glimpse 
into the PoCo's future. After all, the 
Color Computer is a little more than 
two years older than the Portable Com- 
puter. And, | think you will be amazed 
to see everything that is there! 

The site is the Hyatt-Regency Fort 
Worth. The display floor is open Friday 
evening, most of the day Saturday and 
all afternoon on Sunday. Three day 
tickets are $8 in advance while single 
day tickets are $6 in advance. Breakfast 
tickets, which must be ordered in ad- 
vance, are $11. There is a $1 handling 
charge per order. 

Tickets сап be ordered from RAIN- 
BOWfest, Р.О. Box 209, Prospect, КҮ 
40059. Or, you can call (502) 228-4492. 
We accept VISA, MasterCard and 
American Express, of course. 

Other shows later in the year will be in 
Long Beach, California, Chicago and 
New Brunswick, New Jersey. 

We'd like to see you there! 


— Lonnie Falk 
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NEW! 


The Spectrum Projects PoCo Stand 





lus $5 shipping and handlin 
RY residents add sales tax " 


Model 100 Cables 


CoCo to Model 100 Cables 8K Model 100 S 100 8K Memory 
— $19.95 stock T pgrade Module 
CoCo to Model |, II, III, IV #26-3801 585 each 
— $24.95 $679 2 or more $80 each 


External 6 volt Battery 
— $19.95 For quick delivery call: 





SPECTRUM PROJECTS 


93-15 86th DRIVE 
WOODHAVEN, NY 11421 


PCM (212) 441-2807 
Call our Bulletin Board for free Model 100 programs. BBS #1 — (212) 441-3755 
Now оп! те... 20 MEG. CORVUS HARD DISK DRIVE BBS #2 — (212) 441-3766 


BBS #3 — (212) 441-5719 


AT LAST: THE WHOLE 
TRUTH ABOUT FLOPPIES. 


Amazing book reveals 
all! 


How to keep from 
brainwashing your disk 
so it never loses it's. . 
memory. ; 

How fingerprints can 
actually damage disks. 
Unretouched Kirlian 
photographs of UFO's 
(Unidentified Floppy 
Objects)! The incredible 
importance of making 
copies: the Department 
of Redundancy Depart- 
ment-— and what goes on 
when it goes on! Power- 
ful secret methods that 
scientists claim can ac- 
tually prevent computer 
amnesia! All this, and 
much more... 

In short, it's an 80- 
page plain-English, 
graphically stunning, 
pocket-sized definitive 
guide to the care and 
feeding of flexible disks. 

For The Book, ask your 
nearest computer store 
that sells Elephant" 
disks, and bring along 
one and one half earth 
dollars. 

For the name of the 
store, ask us. 


ELEPHANT MEMORY 
SYSTEMS” Marketed 
exclusively by Leading 
Edge Products, Inc., 
Information Systems 
and Supplies Division, 
55 Providence Highway, 
Norwood, MA 02062. Call 
toll free 1-800-343-8413, 
In Massachusetts, call 
collect (617) 769-8150, 
Telex 951-624. 





